¿ESO ES IMPOSIBLE, ESTAS USANDO UN DATA O ESTÁS EJECUTANDO EL SQL DIRECTAMENTE?

sERÍA MEHOR VIA ODBC Y ASI LE COLOCAS DIRECTAMENTE EL SQL:

ESTO DENTRO DEL SUBMAIN OK.

Dim strLineCommand As String
On Error GoTo errLoadConnection
   
    ''Conexión a la Base de datos
    Set db = New ADODB.Connection
    strConn = "DSN=paracelsussql;"
    Debug.Print "Realizando la conexión actual: " & strConn
    db.ConnectionString = strConn
    Debug.Print "Base de datos actualmente abierta"
    db.Open

Y LA FUNCION DE GUARDADO

 Dim db As Connection
 dim sql as String
  Set db = New Connection
    db.CursorLocation = adUseClient
    db.Open "dsn=?aqui tu dsn?"
    sql = "INSERT INTO bdd"
  Set adoprimaryrs = New Recordset
    adoprimaryrs.Open sql, db, adOpenStatic, adLockOptimistic