Option Explicit

Dim DB As Database
Dim Rst As Recordset

Public varName As String
Public varVName As String
Public alles As String

Private Sub Form_Load()
  Set DB = OpenDatabase(App.Path & "\Telefon.mdb")
  Set Rst = DB.OpenRecordset("Telefon")

  Rst.MoveFirst
  Do Until Rst.EOF
    lstNamen.AddItem Rst!Name & ", " & Rst!Vname
    Rst.MoveNext
  Loop

  lstNamen.Selected(0) = True
End Sub

Private Sub cmdNeu_Click()
  Form2.Show
  Unload Me
End Sub

Private Sub cmdAendern_Click()
  lstNamen_DblClick
End Sub

Private Sub lstNamen_DblClick()
  Dim pos As Integer

  alles = lstNamen.Text
  pos = InStr(1, alles, ", ")

  varName = Left(alles, pos - 1)
  varVName = Right(alles, Len(alles) - pos - 1)

  Form3.Show
  Unload Me
End Sub

Private Sub cmdEnde_Click()
  Unload Me
  End
End Sub

Private Sub Form_Unload(Cancel As Integer)
  DB.Close
  Set DB = Nothing
  Set Rst = Nothing
End Sub

Option Explicit

Dim DB As Database
Dim Rst As Recordset
Dim SQL As String

Private Sub Form_Load()
  Set DB = OpenDatabase(App.Path & "\Telefon.mdb")
  Set Rst = DB.OpenRecordset("Telefon")
End Sub

Private Sub cmdEintragen_Click()
  SQL = "INSERT INTO Telefon (Name, VName, Telefonnummer) " & _
            "VALUES ('" & txtName.Text & "', '" & _
            txtVName.Text & "', '" & txtNummer.Text & "')"

  DB.Execute (SQL)

  Form1.Show
  Unload Me
End Sub

Private Sub Form_Unload(Cancel As Integer)
  DB.Close
  Set DB = Nothing
  Set Rst = Nothing
End Sub

Option Explicit

Dim DB As Database
Dim Rst As Recordset
Dim SQL As String
Dim varNummer As Long

Private Sub Form_Load()
  Set DB = OpenDatabase(App.Path & "\Telefon.mdb")

  SQL = "SELECT * FROM Telefon WHERE " & _
            "Name = '" & Form1.varName & "' AND " & _
            "VName = '" & Form1.varVName & "'"

  Set Rst = DB.OpenRecordset(SQL)

  varNummer = Rst!Telefonnummer

  txtName.Text = Rst!Name
  txtVName.Text = Rst!Vname
  txtNummer.Text = Rst!Telefonnummer
End Sub

Private Sub cmdOK_Click()
  SQL = "UPDATE Telefon SET " & _
            "Name = '" & txtName.Text & "', " & _
            "VName = '" & txtVName.Text & "', " & _
            "Telefonnummer = '" & txtNummer.Text & "' " & _
            "WHERE Telefonnummer = " & varNummer

  DB.Execute (SQL)

  Form1.Show
  Unload Me
End Sub

Private Sub cmdLoeschen_Click()
  SQL = "DELETE * FROM Telefon WHERE " & _
            "Name = '" & Form1.varName & "' AND " & _
            "VName = '" & Form1.varVName & "'"

  DB.Execute (SQL)

  Form1.Show
  Unload Me
End Sub

Private Sub Form_Unload(Cancel As Integer)
  DB.Close
  Set DB = Nothing
  Set Rst = Nothing
End Sub