Dim insertSQL As String = "INSERT INTO Orders (CustomerID, ShipName," & _
          "ShipAddress) VALUES (?, ?, ?)"
        Dim insertCMD As OleDbCommand = New OleDbCommand(insertSQL, _conn)
 
        _conn.Open()
        ' Add parameters and set values.
        insertCMD.Parameters.Add("@p1", OleDbType.VarChar, 15).Value = "BONAP"
        insertCMD.Parameters.Add("@p2", OleDbType.VarChar, 15).Value = "London"
        insertCMD.Parameters.Add("@p3", OleDbType.VarChar, 15).Value = "23 Some" & _
          "Street, Islington"
        Dim recs As Integer = insertCMD.ExecuteNonQuery()
        _conn.Close()