Dim cn As New OleDb.OleDbConnection( _
  "Provider=Microsoft.Jet.OLEDB.4.0;" & _
  "Data Source=C:\Test.mdb")
        cn.Open()
        'InsertInto Befehl
        Dim comm As New OleDb.OleDbCommand
        Dim INSERTString As String = _
          "INSERT INTO " & _
          "test " & _
          "(test, test) " & _
          "VALUES " & _
          "('" & txt_test1.Text & "' , '" & txt_test2.Text & "')
 
        comm.CommandText = INSERTString
        comm.ExecuteNonQuery()
        cn.Close()