esto funciona
aunk la coneccion es a access 2003 pero es abienta para todos solo tienes k cambiar el coneccion string
Trabajo = "DBQ=JJBDTW2008.mdb;";
+ "DefaultDir=;";
+ "Driver={Microsoft Access Driver (*.mdb)};" ;
+ "DriverId=25;";
+ "FIL=MS Access;";
+ "MaxBufferSize=2048;";
+ "MaxScanRows=8;";
+ "PageTimeout=5;";
+ "SafeTransactions=0;";
+ "Uid=Admin;";
+ "Pwd=;";
+ "Threads="
JJTrabajo = SQLSTRINGCONNECT(Trabajo)
If JJTrabajo <= 0
MessageBox('Error al Conectar a la Base de Datos de Trabajo',16,'JJ-System')
Return
EndIf
CJJTrabajo = SQLEXEC(JJTrabajo,"SELECT * FROM Pass","pasword")
If CJJTrabajo <=0
MessageBox('Error al Conectar a la Base de Datos',16,'JJ-System')
Return
EndIf
If SQLEXEC(JJTrabajo, "INSERT INTO cuenta (cuenta,detalle,Empresa) VALUES (?M.CUENTA,?M.DETALLE,?M.EMPRESA)")<=0
MessageBox('Error al Conectar a la Base de Datos de Trabajo [GRABADERA CUENTA]',16,'JJ-System')
Return
EndIf
If SQLEXEC(JJTrabajo, "DELETE FROM cuenta WHERE Empresa =?Emp")<=0
MessageBox('Error al Conectar a la Base de Datos de Trabajo [DELETE]',16,'JJ-System')
Return
EndIf
If SQLEXEC(JJClientes, "Update Cliente Set FechaR= ?A18 Where cliente = ?A1 AND Empresa=?Emp")<=0
MessageBox('Error al Conectar a la Base de Datos de Trabajo [GRABADERA UPDATE CLIENTE]',16,'JJ-System')
Return
EndIf