Sayın POWER
Dim conn As ADODB.Connection
Dim myTableRS As ADODB.Recordset
Set conn = New ADODB.Connection
Set myTableRS = New ADODB.Recordset
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.Open "C:\mimfak_veri.mdb"

bu kodu modülde bağlantı veya yol adıyla tanımlayıp sadece ilgili yere bu kodu yazarak bağlantı kurulabilirmi.

---