Solution 1.
I have developed this logic using rdoengine

Dim en As rdoEnvironment
Dim cn As rdoConnection
Dim tb As rdoTable
Dim rstTables() As rdoResultset

Set en = rdoEngine.rdoEvironments(0) 'gets the default environment

With en
    en.CursorDriver = rdUseOdbc
    en.LoginTimeout = 5
    en.Name = "TransOp1"
    Set cn = en.OpenConnection(dsname:="", _
        Prompt:=rdDriverCompleteRequired)
'setting an ODBC Connection where the details are specified by the user
End With

Print "Connecting ";
While cn.StillConnecting
    Print ".";
    DoEvents
Wend
Print "done."

'Creating recordsets for each table in the dsn
For Each tb In cn.rdoTables
    i = i + 1
    SQL = "Select * from " + tb.Name
    Set rstTables(i) = cn.OpenResultset(SQL, rdOpenKeyset, rdConcurRowver, rdAsyncEnable + rdExecDirect)
Next

i = required table number
'use sql statements to get to the required record postion
rstTables(i).Edit
' use yout edit logic here and then use
rstTables(i).Update

'use sql statements to get to the required record postion
rstTables(i).Delete

rstTables(i).Close
cn.Close
en.Close