Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Connection String to Access database

Sub AccessExample()     Dim rs As ADODB.Recordset     Dim cn As ADODB.Connection          Set cn = New ADODB.Connection     cn.Provider = "Microsoft.Jet.OLEDB.4.0;"     cn.ConnectionString = "Data Source=C:\mydb.mdb"     cn.Open          Debug.Print "Full connection string: " & cn.ConnectionString          Set rs = cn.OpenSchema(adSchemaTables)     Do While Not rs.EOF         Debug.Print rs!TABLE_NAME & "  Type: " & rs!TABLE_TYPE         rs.MoveNext     Loop     rs.Close     cn.Close End Sub