如何 查找 定位access数据

Question

     Sql = "select * from 用户详细资料 where 用户姓名= '" & 用户姓名.Text & "'"
        Adodc4.RecordSource = Sql

Answer 1

'作用: 连接Access数据库
'参数: DBName 数据库名
Public Sub ConnAccess(ByVal DBName As String)
  Dim strDB As String
   mCnnDB.CursorLocation = adUseClient
   mCnnDB.Provider = "Microsoft.Jet.OLEDB.4.0"
   mCnnDB.Open(app.path + DBName, "Admin")
End Sub 或事：
    Dim CN   As New ADODB.Connection                '定义数据库的连接
    Dim Rs   As New ADODB.Recordset    CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=app.path + "\NWIND.MDB";Persist Security Info=False"
    CN.Open

Answer 2

如果用户姓名查询到结果不是唯一记录,那得到的是一个RECORDSET先设置Findfirst
while eof
  循环取数据
  next
......

Answer 3

Adodc4.RecordSource = rs.open Sql,cn,3,3