Visual Basic - no me funciona esto

Tengo un problema con una base de datos en Access q tiene unas tablas vinculadas en SQL SERVER.

Le pongo el siguiente codigo:

Dim AdoCn As New ADODB.Connection
Dim StrQryC As String
Dim StrRst As String

StrQryC = "DELETE FROM CARTASWORD"
Set AdoCn = CurrentProject.Connection
AdoCn.Execute StrQryC, , adcmdtext

pero me falla al llegar a la ultima linea. Que es lo que hago mal¿?¿?¿??¿ qué librerías debería tener seleccionadas en las Referencias¿?¿?¿?¿?¿?

Dim AdoConn As New ADODB.Connection
Public RST_MARTES As New Recordset

Public Function conex()
ADOCONN.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=mibase;Data Source=server"
ADOCONN.Open
End Function
Public Function desconectar()
ADOCONN.Close
End Function

conex
RST_EMPLEADO.Source = "DELETE FROM CARTASWORD"
RST_EMPLEADO.ActiveConnection = ADOCONN
RST_EMPLEADO.Open
desconectar