Ayuda con visual basic

Tengo un gran problema necesito hacer un menu para sql con visual 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.
Les agradecería su ayuda para poder pasar esto. Soy nuevo en esto y no se mucho...
mi correo es (xxxxxx)
Les dejo lo que tengo pero me da muchos errores, desde la cadena de conexión hasta las lineas que tengo.
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 fabric code", "Tools")
Set rsR = New ADODB.Recordset
If (rsR.State = adStateOpen) Then
rsR.Close
End If
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
Se que esta muy enredado para algo tan sencillo, pero es por que no se ni lo que estoy haciendo