急！高分求救！

Question

i think ado is better.

Answer 1

用ADO吧，下面的方法不用去配置odbc的，直接用oledb的方式调用数据库，指定数据库的路径就可以了
Public Sub DataCon(DbName As String)
 Dim MSdatabase As String
 Set Con = New ADODB.Connection
    On Error GoTo OpenErr
  MSdatabase = App.Path & "\" & DbName
  Con.CursorLocation = adUseClient
  Con.Provider = "Microsoft.Jet.OLEDB.4.0"
  Con.Open MSdatabase
  Exit Sub
OpenErr:
    MsgBox "Error Opening " & MSdatabase & vbNewLine & Err.Description, vbCritical, "Open Database Error"
    Unload Form1
End Sub