Visual Basic - Leer ruta base de datos DSN de Sistem

Como programar en visual basic para leer la base de datos del DSN de Sistema del Origen de datos ODBC

''Con esto Vas a leer datos en la base de datos que crees en el DSN

Primero creas el DSN de SISTEMA
SEA SQL o ACCESS con el NOMBREDSN (o le que quieras)

en el proyecto referencias
Microsoft Activex Data Object 2.6

Crea un .bas osea un sub main ... y lo haces iniciar asi al proyecto

llamas este procedimiento

'declaras estas
Public conexion As New ADODB.Connection
Public Rs As New ADODB.Recordset



Sub conectar()
On Error GoTo etqerror
conexion.Open ("dsn=NOMBREDSN;user id=sa;pwd=Xx123456;")

'MsgBox "Conexion Exitosa", vbInformation, "Conexion"
mdimain.Show ' muestras el formulario que deseas...

Exit Sub

etqerror:
MsgBox "Error de Conexion " & " - " & Err.Number & Err.Description & " - " & Err.Source, vbCritical, "Log - IO"

End Sub


Luego de esto cuando deseas hacer alguna consulta

Rs.Open cmdsql, conexion ' donde cmdsql sera el select insert o delete...


Si deseas valorar los resultados en un select

'****si no hay resultados ********
If Rs.EOF = True And Rs.BOF = True Then
MsgBox "No existen Resultados para mostrar", vbInformation, "Consulta de Pendientes"
Rs.Close
Exit Sub
End If
'salgo del sub
'**********************************
'Si si hay datos
While Not Rs.EOF
Rs(indice)
Rs.MoveNext 'Avanza al siguiente registro
Wend
Rs.Close

'*************************************************

Espero con esto tengas una referencia si lo qeu deseas es la ruta que tiene el DSN desde BV es otra cosa que lo pide tu tilulo pero tu texto confunde

Deseo leer la ruta de la Base de Datos que tiene el DSN de Sistema - configuración de OBDC Microsoft access desde BV 6.0