Steps to Reproduce Behavior

1. Create a new project and add the ADO Data control and the DataGrid (OLE DB) control to the components.
2. Add a TextBox, a DataGrid, a CommandButton, and an ADO Data control to the form.
3. Set the connection string on the ADO Data control to use the JET 4.0 OLEDB provider and then choose the Northwind database.
4. Add the following code to the project:

       Dim rs As ADODB.Recordset
   Private Sub Form_Load()
   
       Set rs = New ADODB.Recordset
       rs.CursorLocation = adUseServer
       rs.ActiveConnection = Adodc1.ConnectionString
       rs.Properties("IRowsetIdentity") = True
       rs.Open "SELECT * FROM Customers", _
               , adOpenKeyset, adLockOptimistic, adCmdText
       Set Adodc1.Recordset = rs
       Set DataGrid1.DataSource = Adodc1
       Text1.DataField = "CompanyName"
       Set Text1.DataSource = Adodc1
   End Sub
   Private Sub Command1_Click()
   rs.MoveNext
   
   End Sub
   					

5. Run the program.
6. In the Grid, select an entire row about four lines down. Be sure to click on the Button column on the left so that you select the entire row.
7. Edit the text in the TextBox (not in the Grid).
8. In the Grid, select another entire row about four more lines down.
9. Edit the text in the TextBox.
10. Click on the Move Next button, and note that you get the error messages listed in the "Symptoms" section of this article.

Back to the top