Dim oConn As ADODB.Connection
Dim oRs As ADODB.Recordset
Dim sSQL As String
Dim sConn As String
 
' Verbindung
With oConn
  sConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
    App.Path & "\db.mdb" & ";Mode=ReadWrite;Persist Security Info=False"
 
  .Open sConn
End With
 
' Recordset erstellen
sSQL = "SELECT * FROM Komponenten"
oRs.Open sSQL, oConn, adOpenStatic, adLockOptimistic

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de