vb中如何打开mdb数据库

Dim conn As Object
Dim rs As Object
Dim strSQL As String

' 创建ADO连接对象
Set conn = CreateObject("ADODB.Connection")

' 设置连接字符串
' 注意替换"path_to_your_database.mdb"为你的数据库文件的实际路径
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=path_to_your_database.mdb;"

' 创建ADO记录集对象
Set rs = CreateObject("ADODB.Recordset")

' 设置SQL查询语句
strSQL = "SELECT * FROM YourTableName" ' 替换YourTableName为你的表名

' 执行查询
rs.Open strSQL, conn

' 遍历记录集
Do While Not rs.EOF
    ' 处理记录集中的数据
    Debug.Print rs!FieldName ' 替换FieldName为你的字段名
    rs.MoveNext
Loop

' 关闭记录集和连接
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing