VBA-正则表达式运用

Function guigedanwei(x As String)
     Dim reg, mh
     Set reg = CreateObject("vbscript.regexp")
     reg.Pattern = "\d+(ml|L|个|g|KG|G|kg|枚|克)"
     reg.Global = True
     Set mh = reg.Execute(x)
     guigedanwei = mh(0)
End Function


Function guige(x As String)
     Dim reg, mh
     Set reg = CreateObject("vbscript.regexp")
     reg.Global = True
     reg.Pattern = "ml|L|个|g|KG|G|kg|枚|克"
     guige = reg.Replace(x, "")
End Function


Function findtag(x As String)
    Dim conn As Object, rs As Object
    Set conn = CreateObject("ADODB.Connection") '引用ADO
    Dim Connstr As String
    Connstr = "Driver={SQLite3 ODBC Driver};Database=" & ThisWorkbook.Path & "\用户数据.db"
    conn.Open Connstr
    Sql = "select distinct tag as tag from goods"
    Set rs = CreateObject("ADODB.Recordset")
    rs.Open Sql, conn, 1, 1 '产生记录集
    Dim i As Integer
    For i = 1 To rs.RecordCount
        'Debug.Print rs("date") & rs("city")
         If InStr(x, rs("tag")) > 0 Then
            findtag = rs("tag")
            Exit For
        Else: findtag = ""
         End If
        rs.MoveNext '将记录集中的指针指向下一条记录
        Next i
    rs.Close
End Function