如何 查找 定位access数据

[87207688]

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

[lisen101]

'作用: 连接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

[Wang_xiaoni]

如果用户姓名查询到结果不是唯一记录,那得到的是一个RECORDSET

先设置Findfirst
while eof
循环取数据
next
......

[hzybc]

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