¿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