Need a little more detail to provide more tailored code, but this
should get you going in the right direction. Keep in mind, there is
no error handling built into this.
Sub updateDB()
Dim conn As Object, sql As String
Dim databaseFullName As String
databaseFullName = "R:\ACC.mdb"
sql = "UPDATE tblInstructorsTest SET " & _
"tblInstructorsTest.InstructorID = '" & _
Range("A1").Text & "' WHERE " & _
"(((tblInstructorsTest.InstructorID)='WRIG')); "
Set conn = CreateObject("ADODB.Connection")
conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & databaseFullName
conn.Execute sql
conn.Close
Set conn = Nothing
End Sub

Sub deleteDB()
Dim conn As Object, sql As String
Dim databaseFullName As String
databaseFullName = "R:\ACC.mdb"
sql = "Delete tblInstructorsTest.InstructorID " & _
"FROM tblInstructorsTest WHERE " & _
"(((tblInstructorsTest.InstructorID)='" & _
Range("A1").Text & "'));"
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & databaseFullName
conn.Execute sql
conn.Close
Set conn = Nothing
End Sub

Also, things such as the table name should really be set to a
variable. If you can provide more detailed information about what you
need done (ie. database name, database location, table name, etc,
etc), then I may be able to provide a more tailored code.
Mike H. wrote:
I am trying to use ADO to update existing records in access. I have a unique
cell, TransferLine that will correspond to the field by the same name in
access. How can I then update that record in access? Also, I want to be
able to remove a record in the db too. Thanks