The following lines were added (+) and removed (-):
== Example: Read from Access Database and Populate an Array ==References requires in Visual BASIC 6.0: <big>Microsoft ActiveX Data Objects 2.7 Library</big> Public cn1 As ADODB.Connection txtSourcePath.Text = App.Path & "\Contact.mdb" Private Sub cmdConnect_Click() Dim strConn1 As String Set cn1 = New ADODB.Connection cn1.ConnectionString = strConn1 cn1.Open End Sub Private Sub MakeCompanyArray() Dim strSQL1 As String, cnt As Integer Set rs1 = New ADODB.Recordset strSQL1 = "SELECT * FROM Company ORDER BY CompanyID" rs1.CursorLocation = adUseClient rs1.Open strSQL1, cn1, adOpenKeyset, adLockOptimistic If rs1.RecordCount > 0 Then For cnt = 1 To rs1.RecordCount arCompanies(cnt, 1) = rs1!CompanyID arCompanies(cnt, 2) = rs1!CompanyName arCompanies(cnt, 3) = rs1!PhoneNum arCompanies(cnt, 4) = rs1!Website rs1.MoveNext Next cnt arCompanies(0, 1) = cnt End If rs1.Close Set rs1 = Nothing End Sub== 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.