The following lines were added (+) and removed (-):
References requires in Visual BASIC 6.0: <big>Microsoft ActiveX Data Objects 2.7 Library</big> == Example: Write one Record to Access Database Table (AddNew / Update) == <nowiki>Option Explicit</nowiki> <nowiki></nowiki> <nowiki>Public cn1 As ADODB.Connection</nowiki> <nowiki>Public txtDBPath As String</nowiki> <nowiki>Public strConn1 As String</nowiki> <nowiki>Public rs1 As ADODB.Recordset</nowiki> <nowiki></nowiki> <nowiki>Private Sub Form_Load()</nowiki> <nowiki> txtDBPath = App.Path & "\LeadersCRM.mdb"</nowiki> <nowiki> txtMsg.Text = "Application Path: " & txtDBPath</nowiki> <nowiki> strConn1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & txtDBPath & ";"</nowiki> <nowiki> Set cn1 = New ADODB.Connection</nowiki> <nowiki> cn1.ConnectionString = strConn1</nowiki> <nowiki> cn1.CursorLocation = adUseClient</nowiki> <nowiki> cn1.Open</nowiki> <nowiki> txtMsg.Text = txtMsg.Text & vbCrLf & "connection established"</nowiki> <nowiki> </nowiki> <nowiki> Set rs1 = New ADODB.Recordset</nowiki> <nowiki> </nowiki> <nowiki> With rs1</nowiki> <nowiki> .CursorType = adOpenStatic</nowiki> <nowiki> .CursorLocation = adUseClient</nowiki> <nowiki> .LockType = adLockOptimistic</nowiki> <nowiki> .Open "Contact", cn1</nowiki> <nowiki> End With</nowiki> <nowiki> </nowiki> <nowiki> rs1.AddNew</nowiki> <nowiki> rs1!FirstName = "Savannah"</nowiki> <nowiki> rs1!LastName = "Meowface"</nowiki> <nowiki> rs1!Position = "Cat"</nowiki> <nowiki> rs1.Update</nowiki> <nowiki> </nowiki> <nowiki> rs1.Close</nowiki> <nowiki> </nowiki> <nowiki> Set rs1 = Nothing</nowiki> <nowiki> </nowiki> <nowiki>End Sub</nowiki> <nowiki></nowiki> <nowiki>Private Sub Form_Unload(Cancel As Integer)</nowiki> <nowiki> Set cn1 = Nothing</nowiki> <nowiki>End Sub</nowiki>== Example: Obtaining Autonumber Value After Using Recordset AddNew == Set rs1 = New ADODB.Recordset rs1.CursorLocation = adUseClient rs1.Open "TableName", cn, adOpenKeyset, adLockOptimistic rs1.AddNew rs1!FirstName = Trim("" & txtCon(0).Text) rs1!LastName = Trim("" & txtCon(1).Text) rs1.Update NewCID = rs1!CID rs1.CloseThe variable NewCID now has the autonumber value. CID is the name of the table field that is set to Autonumber and is also the key field for the table.