Using con As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data" & _
  "Source=C:\Test.mdb")
    cn.Open()
 
    Using cmd As New OleDb.OleDbCommand( "INSERT INTO tblTest (auto, reifen," & _
      "auspuff, haus,garten) (?,?,?,?)", cn)
 
		cmd.Paramters.AddWithValues("auto", txt_auto.Text)
		....
        comm.ExecuteNonQuery()
	End Using
End Using
MsgBox("Hat geklappt")