Visual Basic - Como abrir BD. ODBC

Hola...

Como puedo abrir una base de datos odbc, sin utilizar el ado data control, si no a travez de codigo?

gracias

Puedes usar este código:

Public Function AbrirDB(sDSN As String) As Connection
Dim cnn As New Connection

With cnn
.ConnectionString = "DSN=" & sDSN
.Open
End With

Set AbrirDB = cnn

Set cnn = Nothing

End Function

En el argumento de la función tienes que pasarle el DSN que te hayas creado en ODBC. Si el DSN se llama Ejemplo, la llamada sería más o menos así:

set cnnNuevaConexion = AbrirDB("Ejemplo")

el objeto cnnNuevaConexion (de la clase Connection, obviamente) ya tendría el origen de datos abierto.

Un saludo