Private Sub CommandButton1_Click()
Dim con As New ADODB.connection
Dim connectionString As String
Dim sql As String
connectionString = "DBQ=C:\Temp\Projekt.mdb; Driver={Microsoft Access Driver (*.mdb)}"
con.Open connectionString
sql = "insert into Projekte (Hauptauftraggeber, Projektverantwortlicher, Projektnummer) values ('" & TextBox4.Text & "', '" & TextBox5.Text & "', '" & TextBox6.Text & "')"
con.Execute sql
sql = "insert into PKB (PKB_Nr, Projektaktivitäten, Ergebnisse ) values ('" & TextBox1.Text & "', '" & TextBox2.Text & "', '" & TextBox3.Text & "')"
con.Execute sql
MsgBox " Werte wurden erfolgreich in die Datenbank übernommen. ", vbInformation, "Übernahme in die Datenbak"
con.Close
Set con = Nothing
End Sub