打开有密码的数据库是这样:
Dim cnn As ADODB.Connection
Dim rec As ADODB.Recordset
Private Sub Form_Load()
Set cnn = New ADODB.Connection
dname = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb ;Persist Security Info=False;Jet OLEDB:Database Password=xxxxx"
cnn.Open dname
End Sub
im cnn As ADODB.Connection
Dim rec As ADODB.Recordset
Private Sub Form_Load()
Set cnn = New ADODB.Connection
dname = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb ;Persist Security Info=False"
cnn.Open dname, "uid", "xxxxx"
End Sub
dim cn As ADODB.Connection
dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb ;Persist Security Info=False"
cn.Open