Private Sub add()
Try
Dim newRow As DataRow = Dsqucc1.mainTable.NewRow
newRow("firstName") = txtFirstName.Text
newRow("lastName") = txtLastName.Text
newRow("studentNo") = txtStudentNo.Text
newRow("email") = txtEmail.Text
newRow("pass") = txtPassword.Text
newRow("experiences") = rtxtExperiencies.Text
newRow("cellPhone") = txtCellPhone.Text
newRow("pcHours") = cboPcHours.Text
newRow("netHours") = cboNetHours.Text
newRow("comments") = rtxtComments.Text
newRow("ranking") = cboRanking.Text
newRow("memberLevel") = cboMemberLevel.Text
Dsqucc1.mainTable.Rows.Add(newRow)

Catch
MessageBox.Show("error", "error", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
End Try
End Sub

dbQuccAdapter1.Update(Dsqucc1, "mainTable")

Try

         ' ensure first and last name input
         If (txtLastName.Text <> "" AndAlso txtFirstName.Text <> "") Then

            ' create the SQL query to insert a row
            dbQuccAdapter1.InsertCommand.CommandText = _
               "INSERT INTO addresses(firstName, " & _
               "lastName) " & _
               "VALUES('" & txtFirstName.Text & "' , " & _
               "'" & txtLastName.Text & "' )"

            ' send query
            dbQuccAdapter1.InsertCommand. _
               ExecuteNonQuery()

         Catch exception As System.Data.OleDb.OleDbException
              Console.WriteLine(exception.StackTrace)
              txtStatus.Text &= exception.ToString

       End Try

 

'declare stuff 
Dim DataReader As OleDbDataReader
Dim Command As OleDbCommand
Dim Connection As OleDbConnection 
Dim CustomerIdVar as string = "1234"

'connection string
Connection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Test.mdb") 

'set up command object to do a select statement taking your var
Command = New OleDbCommand("Select * from Table1 Where CustomerID=" & CustomerIdVar)
Command.Connection = Connection
Command.Connection.Open() 

'Execute the query
DataReader = Command.ExecuteReader() 

If DataReader.HasRows()
   'get the first row returned from the reader and display column in message box, column name in DB is ID
   DataReader.Read()
   msgbox(DataReader.Item("ID").ToString())
else
   'display message
   msgbox("That customer ID was not found")
endif