Visual Basic - Error 3706 en tiempo de ejecución

Dim CONN As ADODB.Connection

Dim RSX As ADODB.Recordset

Dim TXT As String

    On error goto ERROR:

    Set CONN = nothing

    Set RSX = nothing

    Set CONN = New ADODB.Connection

    Set RSX = New ADODB.Recordset

    CONN.ConnectionString = "Provider=SQLOLEDB; Initial Catalog=PRUEBAS-DB; Data Source=DA1;

                                               "integrated security=SSPI; persist security infor=True; user id = sa; password = sa;"

    CONN.Open

    TXT = "select * from personas"

    RSX.Open TXT, CONN, adOpenStatic

    RSX.Close

    CONN.Close

ERROR:

Global MiConStr     As String

Global MiSQL        As ADODB.Connection

        MiConStr = "Provider=SQLOLEDB.1;" & _

                   "UID=sa;" & _

                   "PWD=B1Admin;" & _

                   "Persist Security Info=False;" & _

                   "Initial Catalog=ABCDEF;" & _

                   "Data Source=SERVERABC"

    Set MiSQL = New ADODB.Connection

        MiSQL.CursorLocation = adUseClient

        MiSQL.ConnectionString = MiConStr

        MiSQL.Open

        MiSQL.CommandTimeout = 0

Private Function ConectarDB2() As Boolean

Dim rs As rdoResultset

Dim cn As New rdoConnection

Dim cl As rdoColumn

Dim er As rdoError

On Error GoTo ERROR

    With cn

        .Connect = "uid=sa;pwd=*****;server=DA1;driver={SQL Server};database=DB_PRUEBAS;DSN='';"

        .CursorDriver = rdUseNone

        .EstablishConnection rdDriverNoPrompt

        Set rs = cn.OpenResultset("select pr_cod, pr_tipo, pr_nombre from personas order by pr_cod")

        For Each cl In rs.rdoColumns

            Debug.Print cl.OrdinalPosition, _

            cl.Name, cl.Value

        Next

    End With

    GoTo SALIR

ERROR:

    For Each er In rdoErrors

        Debug.Print er.Description

    Next er

    Resume Next

SALIR:

End Function