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.pn AS Erstes,nachweis.vorname AS" & _
      "Zweites,zeiten.in AS Drittes,zeiten.out AS Viertes,zeiten.gearbeitet AS" & _
      "Fuenftes,zeiten.konto AS Sechstes,zeiten.soll AS Siebtes FROM" & _
      "nachweis,zeiten"
    .Open
End With

Dim itemX As ListItem
 
If Rs.RecordCount > 0 Then
  While Not Rs.EOF
    With ListView1
     Set itemX = .ListItems.Add(, , Rs("Erstes"))
      itemX.SubItems(1) = Rs("Zweites")
      itemX.SubItems(2) = Rs("Drittes")
      itemX.SubItems(3) = Rs("Viertes")
      itemX.SubItems(4) = Rs("Fuenftes")
      itemX.SubItems(5) = Rs("Sechstes")
      itemX.SubItems(6) = Rs("Siebtes")
    End With
    Rs.MoveNext
  Wend
End If