Visual Basic - ¿COMO CREAR CONEXION ODBC?

Deseo saber :

¿Cómo puedo crear una conexión ODBC automáticamente?

si dicha conexión la hago manualmente.

Estoy programando en Visual Basic 6 con base de datos Access

la ruta está en la variable: "BaseDatos"

Les agradezco de antemano la ayuda que me puedan brindar.

tienes que crear igual la obdc luego en el programa

global EspacioTrabajo as workspace
global conexion as database

sub Conectar_base
set EspacioTrabajo = createworkspace("workspacejet","admin"," ", dbuseodbc)
set conexion = espacioTrabajo.opendatabase("nombre de la odbc")
end sub

Disculpa amiga, pero workspace no existe en Visual Basic 6.0, al menos al declararla en el módulo no la reconoce:

global EspacioTrabajo as workspace
global conexion as database

sub Conectar_base
set EspacioTrabajo = createworkspace(\"workspacejet\",\"admin\",\" \", dbuseodbc)
set conexion = espacioTrabajo.opendatabase(\"nombre de la odbc\")
end sub

Debes cargar la Referencia:
Microsoft DAO v.(la que tengas)
Y entonces tendrás disponible el objeto WorkSpace y el objeto DataBase.