Function EditAccessNorthwind()

  Dim strConn As String

  Dim cmd As ADODB.command

  Dim rst As ADODB.Recordset

  strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

      "Data Source=C:\Program Files\Microsoft Office\" & _

      "Office10\Samples\Northwind.mdb;"

  Set cmd = New ADODB.command

  With cmd

    .ActiveConnection = strConn

    .CommandText = "UPDATE Employees " & _

      "SET Title = 'Account Executive' " & _

      "WHERE Title = 'Sales Representative'"

    .Execute

  End With

  Set cmd = Nothing

End Function