Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Call update method from Recordset

Public Sub ADOUpdate()   Dim rs As ADODB.Recordset   Dim strSQL As String      Set rs = New ADODB.Recordset   strSQL = "SELECT CompanyName, Address, City FROM tblCompany WHERE (CompanyName = 'Liams Diner')"      rs.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic      With rs     !CompanyName = "Diner"     .Update   End With   rs.Close End Sub