请教一下如何用vb连接access数据库
最近想用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
