Accedo a Base de Datos con ODBC desde vb6

Hola a todos, aprendí a conectarme a una base de datos a través de un DNS o por ODBC y bueno les voy a compartir el código, hay les va, dudas u opiniones son bien recibidas.

Recuerden para que no les genere ningun error en el menú Proyecto - Referencias y agregan la referencia Microsoft ActiveX Data Objects 2.1 Library.


Public Cn As ADODB.Connection
Private Sub Form_Load()
Conectado
End Sub



Public Function Conectado() As Boolean
    Dim cadena As String
    Dim Rs As ADODB.Recordset
       
        Set Rs = New ADODB.Recordset


        On Error GoTo senal
        Set Cn = New ADODB.Connection
        cadena = "DSN=DNS_NAME;UID=USER;PWD=PASSWORD"

        Cn.ConnectionString = cadena
        Cn.Open
        Conectado = True
        MsgBox ("Conectado")
       
        Set Rs = Cn.Execute("select * From emp", , adCmdText)

       
        Do Until Rs.EOF()
            MsgBox Rs(0) & " " & Rs(1) & " "
            Rs.MoveNext
        Loop
           
        Rs.Close
        Set Rs = Nothing
        Cn.Close
Exit Function

senal:
        Conectado = False
        MsgBox Err.Description
        Err.Clear
End Function