ExecNonQuery("INSERT INTO Customers (CustomerID, LastName, FirstName) Values (" & CustomerID & ", '" & txtLastName.Text & "', '" & txtFirstName.Text & "')")

        'Set up connection string
        Dim cnString As String
 
        txtStatus.Text = "Connecting to database using MS Access" & vbCrLf & vbCrLf
 
        cnString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=..\data\Northwind.mdb"
 
        'Sql statement. This will insert record into Customers table
        Dim sqlQRY As String = "INSERT INTO Customers (CustomerID, CompanyName, City, Region, PostalCode) Values ('AAAAA', 'ABC Company', 'Seattle', 'WA', '98128')"
 
        'Create connection
        Dim conn As OleDbConnection = New OleDbConnection(cnString)
 
        Try
            ' Open connection
            conn.Open()
 
            'create command 
            Dim cmd As OleDbCommand = New OleDbCommand(sqlQRY, conn)
 
            'execute non query command
            cmd.ExecuteNonQuery()
 
            'Sql statement. This will delete newly inserted record from Customers table
            sqlQRY = "DELETE FROM Customers WHERE CustomerID='AAAAA'"
 
            'execute non query command AGAIN! By this time using DELETE statement
            cmd.CommandText = sqlQRY
 
            'execute non query command. To see the changes in insert statement, comment the code below
            cmd.ExecuteNonQuery()
 
        Catch ex As SqlException
            txtStatus.Text = "Error: " & ex.ToString & vbCrLf
        Finally
            ' Close connection
            conn.Close()
            txtStatus.Text = txtStatus.Text & vbCrLf & "Connection closed."
        End Try