Dim ws As Workspace
  Dim conn As Connection
  Dim queryDef As queryDef
  Dim str As String
  Dim RS As Recordset
Sub connect()
  'connect to MySQL using MySQL ODBC 3.51 Driver
  Set ws = DBEngine.CreateWorkspace("Adressen", "Admin", "poldi", dbUseODBC)
  str = "odbc;DRIVER={MySQL ODBC 3.51" & _
    "Driver};SERVER=192.168.1.1;DATABASE=adressen;UID=Admin;PWD=poldi;option=" & _
    "35"
  Set conn = ws.OpenConnection("adressen", dbDriverNoPrompt, , str)
  Set RS = conn.OpenRecordset("tabelle1")
  ', dbOpenDynamic, dbSeeChanges, dbOptimistic)
End Sub
Private Sub Command3_Click()
    RS.AddNew
    RS!namee = Text1.Text
    RS!vornamee = Text2.Text
    RS!telefon = Text3.Text
    RS.Update
End Sub
Private Sub Command4_Click()
    RS.Edit
    RS!namee = Text1.Text
    RS!vornamee = Text2.Text
    RS!telefon = Text3.Text
    RS.Update
End Sub
Private Sub Form_Load()
    connect
    AnzAkt
End Sub
Sub AnzAkt()
    Text1.Text = RS!namee
    Text2.Text = RS!vornamee
    Text3.Text = RS!telefon
End Sub
Private Sub Form_Unload(Cancel As Integer)
    RS.Close
    conn.Close
    ws.Close
End Sub