Borrar registro en sql con visual

Esto necesito... Hacer un menu para sql server 2005 con visual 6.0 como herramienta.
La idea es que la opción permita borrar un registro en una tabla llamada invoice, los campos son no_invoice, co, letra, qty y estilo. Al borrarse se cambian los datos en otra tabla que se llama export con los mismos capos solo que en esta tabla se llaman no_oc, item, cantid, estilo.
También antes de borrar el campo debe salir una ventana de aviso preguntando si esta seguro que desea borrar el registro.
Me dicen que todo eso se puede hacer en una sola line o que es muy sencillo hacerlo
Pero yo no se como, soy nuevo en esto y estoy a prendiendo
hasta ahora esto es lo que ue he hecho
Option Explicit
Dim cnR As ADODB.Connection
Dim rsR As ADODB.Recordset
Dim i As Integer
Private Sub Form_Load()
i = 0
End Sub
Private Sub mnuRegisters_Click()
Dim fxConectar As String
Dim coda As String
Set cnR = New ADODB.Connection
 coda = InputBox("Type the corter order code", "Order cort")
 Set rsR = New ADODB.Recordset
 If (rsR.State = adStateOpen) Then
     rsR.Close
 End If
 Set cnR = New ADODB.Connection
cnR.CursorLocation = adUseClient
cnR.Open fxConectar = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=practica;Data Source=IT-ASIST"
'cnR.Open fxConectar("s_gutierrez117071985", "s_gutierrez")
    asigna1
    fxConectar = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=practica;Data Source=IT-ASIST"
End Sub
Public Function fxConectar(llave As String, nombre As String)
Set cnR = New ADODB.Connection
cnR.CursorLocation = adUseClient
cnR.Open fxConectar = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=practica;Data Source=IT-ASIST"
'cnR.Open fxConectar("s_gutierrez117071985", "s_gutierrez")
    asigna1
    fxConectar = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=practica;Data Source=IT-ASIST"
End If
rsR.Open "SELECT co, letra, qty FROM invoice WHERE " _
& "codtela='" & Trim(coda) & "' AND dueno=3 ORDER BY yards", cnR, adOpenDynamic, adLockReadOnly
If Not (rsR.BOF And rsR.EOF) Then
    frmListas.fg.Rows = rsR.RecordCount + 1
    Do While Not (rsR.EOF)
        frmListas.fg.TextMatrix(i, 0) = Trim(rsR!co)
        frmListas.fg.TextMatrix(i, 1) = Trim(rsR!letra)
        frmListas.fg.TextMatrix(i, 2) = Trim(rsR!qty)
        frmListas.fg.TextMatrix(i, 6) = rsR!yards + 0
        i = i + 1
        rsR.MoveNext
    Loop
    frmListas.Show
End If
'cnR.Execute
Delete From invoice
Where
     Select invoice.no_invoice, invoice.co,invoice.letra, invoice.qty, invoice.estilo, no_oc.export, item.export,
     cantid.export,estilo.export From invoice,export Where
     invoice.no_invoice , invoice.co, invoice.letra, invoice.qty, invoice.estilo = no_oc.export, item.export,
     cantid.export , estilo.export
End If
<a href="eliminar.php" onclick="return confirm('¿Seguro?')">Eliminar</a>
 End If
End Function
Si se ve un solo relajo tienen razón porque no se mucho de lo que estoy haciendo