INFO: When Is the Access AutoNumber Field Available? (244136)

MORE INFORMATION

1. Open a standard EXE project in Visual Basic. Form1 is created by default.
2. Under Project References, select Microsoft ActiveX Data Objects .
3. Place two CommandButtons on the form.
4. Paste the following code in the form code window:

   Dim cn As ADODB.Connection
   Dim rs As ADODB.Recordset
   
   Private Sub Command1_Click()
      rs.Open "select * from ORDERS", cn, adOpenKeyset, adLockOptimistic
   End Sub
   
   Private Sub Command2_Click()
      rs.AddNew
      rs!CustomerID = "ALFKI"
      rs!EmployeeID = 1
      rs.UpdateBatch
      Debug.Print rs!OrderID & Chr(9) & rs!CustomerID & Chr(9); rs!EmployeeID
   End Sub
   
   Dim sconnect As String
   
   Private Sub Form_Load()
    Dim sconnect As String
    
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    
    'Change the paths to the mdb's in the following statements for your machine;
    'Uncomment ONE of the statements to set sconnect to a valid connection string.
    
   ' Using JETOLEDB drivers
    
    'Test Office 97 using JETOLEDB
   'sconnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Program Files\Microsoft Visual Studio\VB98\nwind.mdb"
   'sconnect = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=D:\Program Files\Microsoft Visual Studio\VB98\nwind.mdb"
   
   ' Test Office 2000 using JETOLEDB
   'sconnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Program Files\Office2000\Office\Samples\northwind.mdb"
   'sconnect = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=D:\Program Files\Office2000\Office\Samples\northwind.mdb"
   
   'Test Office XP using JETOLEDB
   'sconnect = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=D:\Program Files\Microsoft Office\Office10\Samples\northwind.mdb"
   'sconnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Program Files\Microsoft Office\Office10\Samples\northwind.mdb"
   
   ' Using ODBC drivers
   
   'Test Office 97 using ODBC drivers
   'sconnect = "Driver={Microsoft Access Driver (*.mdb)};" & _
                           "Dbq=nwind.mdb;" & _
                           "DefaultDir=D:\Program Files\Microsoft Visual Studio\VB98\;" & _
                           "Uid=Admin;Pwd=;" '
                         
   'Test Office 2000 / 9 using ODBC drivers
   'sconnect = "Driver={Microsoft Access Driver (*.mdb)};" & _
                           "Dbq=northwind.mdb;" & _
                           "DefaultDir=D:\Program Files\Microsoft Office\Office\Samples;" & _
                           "Uid=Admin;Pwd=;"
   
   'Test Office XP / 10 using ODBC drivers
   'sconnect = "Driver={Microsoft Access Driver (*.mdb)};" & _
                           "Dbq=northwind.mdb;" & _
                           "DefaultDir=D:\Program Files\Microsoft Office\Office10\Samples;" & _
                           "Uid=Admin;Pwd=;"
   
   cn.CursorLocation = adUseClient
   'cn.CursorLocation = adUseServer
   cn.Open sconnect
   End Sub