Option Explicit

Private Sub Form_Load()
Dim cn As ADODB.Connection, rs As Recordset
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    cn.ConnectionString = "DSN=DB1"
    cn.CursorLocation = adUseClient
    cn.Open
    rs.Open "select table2.N2,table2.C2,table2.N1,table1.C1 from table2 inner join table1 on table1.N1 = table2.N1", cn, _
        adOpenStatic, adLockOptimistic, adCmdText
    rs.MoveLast
    rs.Delete
    rs.Update
End Sub

Option Explicit

Private Sub Form_Load()
Dim cn As ADODB.Connection, rs As Recordset
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    cn.ConnectionString = "DSN=DB1"
    cn.CursorLocation = adUseServer
    cn.Open
    rs.Open "select table2.N2,table2.C2,table2.N1,table1.C1 from table2 inner join table1 on table1.N1 = table2.N1", cn, _
        adOpenKeyset, adLockOptimistic, adCmdText
    rs.MoveLast
    rs.Delete
    rs.Update
End Sub