How To Bind Complex-Bound Controls at Run Time with Visual Basic 6.0

MORE INFORMATION

1. Create a new Standard EXE project. Form1 is created by default.
2. Under Project, References, select the Microsoft ActiveX Data Objects Library.
3. On the Project menu, click Components. On the Controls tab, select the check box next to the Microsoft DataGrid Control 6.0 (OLEDB) option. Then click OK to exit the Components window.
4. Add a DataGrid to the form.
5. Add the following code to the form. Be sure to change the value of the strConn variable so that it points to the location of the Northwind (NWind.MDB) database on your machine:

      Dim cnNWind As New ADODB.Connection
      Dim rsOrders As New ADODB.Recordset
   
      Private Sub Form_Load()
          Dim strConn As String
   
          strConn = "Provider=Microsoft.Jet.OLEDB.3.51;" & _
                    "Data Source=D:\VS98\VB98\NWind.MDB;"
          'If using an Access 2000 mdb use "Microsoft.Jet.OLEDB.4.0"
   
          cnNWind.CursorLocation = adUseClient  
          cnNWind.Open strConn
   
          rsOrders.Open "SELECT OrderID, EmployeeID, OrderDate FROM Orders", _
                        cnNWind, adOpenStatic, adLockOptimistic, adCmdText
          Set DataGrid1.DataSource = rsOrders
      End Sub
   

6. Run the code and you will see data in the grid on your form.
7. Modify the code by changing the adOpenStatic constant to adOpenForwardOnly and the CursorLocation to adUseServer.
8. Run the code and you should see an error message that says "The rowset is not bookmarkable."