ارجو المساعدة

تفضل

Dim cn As New ADODB.Connection
Dim RS As New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=123; Data Source=DB1.MDB"
RS.ActiveConnection = cn
RS.CursorType = adOpenDynamic
RS.Source = "SELECT * FROM table1"
RS.LockType = adLockOptimistic
RS.CursorLocation = adUseClient
RS.Open