vb怎么连接数据库？

Answer 1

Public cn AsADODB.Connection '连接的定义
Public rs AsADODB.Recordset '记录集的定义
Sub main()
Set cn = New ADODB.Connection '实例化连接对象
cn.ConnectionString ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path &"\personinfo.mdb;Persist Security Info=False" '给连接赋字符串
cn.Open '打开连接
Set rs = New ADODB.Recordset
frmdl.Show
End Sub