如何用ado来连接access？（在线等）

Question

我知道用sql来连接如下：
ublic Con As ADODB.Connection
Sub Main()                                     '连接SQLServer
 On Error GoTo errFind
    Set Con = New ADODB.Connection
    With Con
         .ConnectionString = "driver={SQL Server};" & _
         "server=服务器名;uid=用户名;pwd=密码;database=数据库名"
         .ConnectionTimeout = 15
         .Open
    End With
errFind:
  If Err <> 0 Then                                ' 其他的错误
        MsgBox "不期望的错误: " & Err.Description
        End
  End If
End Sub
但用连接access不会？

Answer 1

Option Explicit'Ado variables
Dim adocon As Connection
Dim rsado As Recordset'Dao variables
Dim daodb As DAO.Database
Dim daors As DAO.Recordset
Private Sub Form_Load()'Ado Codeing
Set adocon = New Connection
adocon.CursorLocation = adUseClient
adocon.Open "Provider=Microsoft.jet.OLeDB.3.51;Data Source=" & App.Path & "\adodao.mdb;"
Set rsado = New Recordset
rsado.Open "adodao", adocon, adOpenDynamic, adLockOptimistic
If rsado.RecordCount > 0 Then
    rsado.MoveLast
    rsado.MoveFirst
    Text1.Text = rsado.Fields(0)
 End If 'Dao Codeing
 Set daodb = OpenDatabase(App.Path & "\adodao.mdb")
 Set daors = daodb.OpenRecordset("adodao", 2)
If daors.RecordCount > 0 Then
    daors.MoveLast
    daors.MoveFirst
    Text2.Text = daors.Fields(0)
 End IfEnd Sub

Answer 2

全被 SoHo_Andy(冰) 说完啦！

Answer 3

Provider=Microsoft.jet.OLeDB.3.51;Data Source=" & App.Path & "\adodao.mdb;
这里要注意版本问题。最好用4.0以上！