Dim rs As ADODB.Record
    Dim conadoconn As ADODB.Connection
 
     conADOConn = New ADODB.Connection
     conadoconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data    " & _
       "Source=C:\temp\leitpc.mdb"
 
       conadoconn.Open()
 
       rs = New ADODB.Record
 
       rs.ActiveConnection = conadoconn
       rs.Source = "select * from Transportauftraege"
 
       rs.Open()
 
       rs.Close()
       conadoconn.Close()