Visual Basic - ABRIR BASE DE DATOS USANDO ODBC

Tengo algunas preguntas, pero por ahora nada mas escribo una de ellas.

Como abro una base de datos que está en el servidor de la empresa usando ODBC, la base de datos se llama "fallos".

tengo este código pero no he podido abrirla.

Set wks = CreateWorkspace("espacio", "admin", "", dbUseODBC)
Set con = wks.OpenConnection("Con1", ,False, "ODBC;UID=admin;PWD=;DSN=fallos")
Set base = wks.OpenDatabase("fallos")

Me marca un error: "Falló la llamada", que puedo hacer?

si me lo pudieran corregir se los agradecería mucho, gracias.

Declara en las Referencias que vas a usar Microsoft Remote Data Object 2.0 y
utiliza la siguiente metodología:

Dim objConecta As rdoConnection

Set objConecta = rdoEnvironments(0).OpenConnection([Nombre del ODBC entre comillas dobles])

No funciona. dice que el componente ActiveX no puede crear el objeto.

Yo uso la versión 5.0 no sé si se deba a eso.

si me pudieras mandar un ejemplo completo por favor. aquí o a mi correo