Private Sub Form_Load()
 Dim Slash As String
Slash = ""
If Len(App.Path) > 3 Then Slash = "\"
Pfad = App.Path & Slash & "DB.MDB"
Set db = Workspaces(0).OpenDatabase(Pfad, False, False)
Set Tabelle = db.OpenRecordset("Zeit")
lstvMain.ListItems.Clear
    Do While Not Tabelle.EOF
      Set itmX = lstvMain.ListItems.Add(, , Tabelle!IDA)
      itmX.SubItems(1) = Tabelle!Tag
      itmX.SubItems(2) = Tabelle!Mitarbeiter
      itmX.SubItems(3) = Tabelle!Arbeit
      itmX.SubItems(4) = Tabelle!Beginn
      itmX.SubItems(5) = Tabelle!Ende
      itmX.SubItems(6) = Tabelle!Pause
      itmX.SubItems(7) = Tabelle!Fahrt
      Tabelle.MoveNext
    Loop
End Sub
Private Sub lstvMain_Click()
  If lstvMain.ListItems.Count = 0 Then Exit Sub
  MonthView1 = lstvMain.SelectedItem.SubItems(1)
  lblMitarbeiter.Caption = lstvMain.SelectedItem.SubItems(2)
  lblArbeitszeit.Caption = lstvMain.SelectedItem.SubItems(3)
  txtBeginn.Text = lstvMain.SelectedItem.SubItems(4)
  txtEnde.Text = lstvMain.SelectedItem.SubItems(5)
  txtPause.Text = lstvMain.SelectedItem.SubItems(6)
  txtFahrt.Text = lstvMain.SelectedItem.SubItems(7)
End Sub
Private Sub cmdÄndern_Click()
 With Tabelle
    .MoveFirst
        For X = 0 To lstvMain.ListItems.Add(, , Tabelle!IDA)
        If lstvMain.SelectedItem(X) = True Then Exit For
        .MoveNext
    Next
    .Edit
        Tabelle("Tag") = MonthView1
        Tabelle("Mitarbeiter") = frmHaupt.Mitarbeiter
        Tabelle("Beginn") = txtBeginn.Text
        Tabelle("Ende") = txtEnde.Text
        Tabelle("Pause") = txtPause.Text
        Tabelle("Fahrt") = txtFahrt.Text
        Tabelle("Arbeit") = Arbeitszeit
    .Update
End With
'DbAktu
End Sub