最近想用VB连接数据库写一个小程序，但是不知道怎么连接最好。因为以前没有接触过这种方法，所以不知道怎么接连才能更方便的使用并且可以移植。

我使用了数据控件来连接，但是不能移植到其他的位置。

Private Sub Command1_Click()
    Dim rs As New ADODB.Recordset
    Dim conn As New ADODB.Connection
    conn.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;data source=" & App.Path & "\xs.mdb"
    'conn.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;data source=" & App.Path & "\xs.mdb;Jet OLEDB:database password=102"'带密码的
    conn.Open
    If conn.State = 1 Then
       MsgBox "数据库连接正常！"
    End If
End Sub

收藏下

通过相应的查找资料，这个方法基本上学会了。

手下了