Dim oConn As New ADODB.Connection
Dim oRs As New ADODB.Recordset
Dim sSQL As String
 
With oConn
  .Provider = "Microsoft.Jet.OLEDB.3.51"
  .Properties("Data Source") = "C:\Test\DB1.MDB"
  .Properties("Persist Security Info") = False
  .Open
End With
 
sSQL = "SELECT * FROM Adressen"
 
oRs.Open sSQL, oConn, adOpenStatic, adLockOptimistic

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de