Hola a todos.

Necesito ayuda con un código de visual basic cuanto antes. Me e creado una ODBC cuyo nombre es "practica" y el test de conexion es positivo pero a la hora de ejecutar el codigo que les pongo a continuacion me da el error 3146 ODBC falló la llamada, el error me da en la linea subrayada.

Necesito ayuda urgente muchisimas gracias de antemano:

Option Explicit
Dim misesion As Workspace
Dim miconexion As Connection
Dim rs As Recordset

DBEngine.DefaultType = dbUseODBC
Set misesion = Workspaces(0)

Set miconexion = misesion.OpenConnection("miconexion", dbDriverNoPrompt, False, "ODBC;DSN=practica")

Set rs = miconexion.OpenRecordset("Select cip,dni,ape1,ape2,nombre,sexo,discap From trab", dbOpenDynamic, dbRunAsync, dbPessimistic)

rs.MoveFirst

DBEngine.OpenConnection(....)

Muchas gracias por el aporte pero no me a solucionado nada me sige diciendo: falló la llamada....

Entonces fíjate si lo tienes referenciado en el proyecto (menú Herramientas -> Referencias), debes definir un motor para manejar las bases de datos.