问一下，vb怎么连接数据库呀`~（access）有代码吧~~给分呀`

Question

Set dcnPassword = New ADODB.Connection
    With dcnPassword
        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\sys.mdb;"
        .Open
    End With
    Set rsPassword = New ADODB.Recordset    '打开记录集。
    With rsPassword
        .Open "SELECT * FROM [Password] where [Security] in('all','仓储')", dcnPassword, adOpenStatic, adLockOptimistic
        '移动到记录尾部获得记录号，然后返回，以便获得总记录数。
        .MoveLast
        .MoveFirst
        Do While Not .EOF
            Combo1.AddItem ![UserName]
            .MoveNext
        Loop
    End With

Answer 1

我认为：连接acess数据库最好使用DAODim db As Database
Dim rs As Recordset
Set db = OpenDatabase(App.Path + "\数据库.mdb")
Set rs = db.OpenRecordset("表名")

Answer 2

楼上的打不开有密码的Access库，按如下写
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=库.mdb;Jet OLEDB:Database Password=密码"