Per creare una connessione al DB potresti utilizzare questo script:
codice:
Dim conn,rs
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.RecordSet")
dim SQL,ConnStr as String
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & app.path & "\nomedb.mdb"
conn.Open connStr
SQL = "" 'Inserisci qui la Query
rs.Open SQL,conn,adOpenDynamic,adLockOptimistic