vb如何实现访问access数据库？

Question

vb如何实现访问access数据库？请给出详细的代码

Answer 1

connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.path & "\数据库名称.mdb;Jet OLEDB:database password=数据库密码"
conn.Open connStr
仅供参考！测试通过环境XP+VB6

Answer 2

Private Sub Command2_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cnstr As Stringcnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\a.mdb;Persist Security Info=False"
cn.ConnectionString = cnstr
cn.Open
cnstr = "select * from tab"
rs.Open cnstr, cn, adOpenKeyset, adLockOptimistic
While Not rs.EOF
    Debug.Print rs.Fields(0).Value
    rs.MoveNext
WendEnd Sub