Private Sub Command_Button3 Click()
Dim conn As New ADODB.Connection
Set conn = New ADODB.Connection
conn.Open "DRIVER={MySQL ODBC 3.51 Driver}" _
& ";SERVER=" & "localhost" _
& ";DATABASE=" & "meine_datenbank" _
& ";UID=" & "mein_user" _
& ";PWD=" & "mein_passwort" _
sqlstr = "INSERT INTO 'MITGLIEDER' ('Vorname', 'Nachname', 'Adresse', 'PLZ', 'Wohnort', 'Geburtsdatum', 'Telefon', 'Mobil', 'Parzelle', 'Eintritt', 'Status' ) VALUES('TextBox_Mitglied_erstellen_Vorname', 'TextBox_Mitglied_erstellen_Nachname', 'TextBox_Mitglied_erstellen_Adresse', 'TextBox_Mitglied_erstellen_PLZ', 'TextBox_Mitglied_erstellen_Wohnort', 'TextBox_Mitglied_erstellen_Geburtsdatum', 'TextBox_Mitglied_erstellen_Telefon', 'TextBox_Mitglied_erstellen_Mobil', 'TextBox_Mitglied_erstellen_Parzelle', 'TextBox_Mitglied_erstellen_Eintritt', 'TextBox_Mitglied_erstellen_Status');"
conn.Close
Set conn = Nothing
MsgBox "Eintrag erfolgreich hinzugefügt"
End Sub