Dim Cn As ADODB.Connection      ' ADO-Connectionobjekt für Verbindung
Dim Rs As ADODB.Recordset       ' ADO-Recordset für Datenhandling
 
Set Cn = New ADODB.Connection
With Cn
    .CursorLocation = adUseClient
    .Mode = adModeShareDenyNone
    ' Jet-Provider
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    ' Pfad zur eigendlichen DB
    .Properties("Data Source") = App.Path & "\datenbank2.mdb"
    .Open
End With
 
Set Rs = New ADODB.Recordset
With Rs
    .ActiveConnection = Cn
    .CursorLocation = adUseClient
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    '.Source = "select" & _
      "[nachweis].[vorname],[nachweis].[nachname],[nachweis].[pn],[zeiten].[pn" & _
      ",[zeiten].[in],[zeiten].[out],[zeiten].[soll] from nachweis,zeiten where" & _
      "[nachweis].[pn] = [zeiten].[pn]"
    .Source = "SELECT nachweis.*,zeiten.* FROM nachweis INNER JOIN zeiten ON" & _
    "nachweis.pn = zeiten.pn order by nachweis.vorname"
    '.Source = "select * from nachweis"
    .Open
End With

Dim itemX As ListItem
 
If Rs.RecordCount > 0 Then
  While Not Rs.EOF
    With ListView1
     Set itemX = .ListItems.Add(, , Rs("pn"))
      itemX.SubItems(1) = Rs("vorname")
      itemX.SubItems(2) = Rs("in")
      itemX.SubItems(3) = Rs("out")
      itemX.SubItems(4) = Rs("gearbeitet")
      itemX.SubItems(5) = Rs("konto")
      itemX.SubItems(6) = Rs("soll")
    End With
    Rs.MoveNext
  Wend
End If