哪位朋友会使用VB，请教个问题；关于VB访问数据库，使用Find查找字段的问题

pldjn

1。 这段是数据库创建时定义的字段，都是相同的方法；
=============================================================================
       tbl.Columns.Append "Key", adVarWChar, 20            '测试步键值
         
        tbl.Columns.Append "Tag", adVarWChar, 20            '测试步Tag
        tbl.Columns.Append "Name", adVarWChar, 20           '测试步名称
        tbl.Columns.Append "Type", adVarWChar, 20           '元件类型
        tbl.Columns.Append "TestMothed", adVarWChar, 20     '测试方式
        tbl.Columns.Append "Label", adSingle               '标称值
================================================================================
2。这段是查找数据库字段中的内容，当查找Name,Key,时可以正常查找到需要的数据，但是查找Tag字段是总是不能正常查找到，不知道为什么。
================================================================================
Public Function DB_Find(ByRef Field As String, ByRef Text As String, Optional ForBack As String = adSearchForward, Optional First As Boolean = True) As String
   
    On Error GoTo DBFindErr
    Dim line As Integer
    Dim mark
    Dim ward As String
   
    DB_Find = ""  
   
    If First = True Then
        rs.MoveFirst
    End If
   
    mark = rs.Bookmark
    rs.Find Field & " = '" & Text & " '", 1, ForBack, mark
      
    DB_Find = rs.Fields("Key").Value
   
DBFindErr:
   
End Function
===========================================================================================