The following lines were added (+) and removed (-):
== Example: Write one Record to Access Database Table == <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>