Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data " _
   & _
                     "Source=C:\Test.mdb")
        cn.Open()
 
        Dim comm As New OleDb.OleDbCommand
 
        Dim INSERTString As String = _
              "INSERT INTO " & _
                 "tblTest " & _
                    "(auto, reifen, auspuff, haus,garten) " & _
             "VALUES " & _
                "('" & txt_auto.Text & "' , '" & txt_reifen.Text & "' , '" & _
                txt_auspuff.Text & "' , '" & txt_haus.Text & "' , '" & _
                txt_garten.Text & "')"
        comm.CommandText = INSERTString
        comm.ExecuteNonQuery()
        cn.Close()
 
 
        MsgBox("Hat geklappt")