VBA/Excel/Access/Word/Access/Connection String
Use parameter name connection string
<source lang="vb">
Sub ConnectionExample2()
Dim conn As ADODB.Connection Set conn = New ADODB.Connection conn.Open "Provider = Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & CurrentProject.Path & _ "\mydb.mdb" MsgBox "Connection was opened" conn.Close Set conn = Nothing MsgBox "Connection was closed"
End Sub
</source>