Uso no valido de la propiedad ConnectionString

[polielb]

Hola amigos cuando intento seguir la secuencia de coneccion con el ConnectionString me tira este error uso no valido de la propiedadla sintaxis es esta

Dim TEsql As ADODB.Connection
Dim rs As ADODB.Recordset


Set TEsql = New ADODB.Connection
Set TEsql.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=TE;Data Source=DALFONSO\BKUPEXEC"

igualmente puedo manejar la tabla con esto

Set rs = New ADODB.Recordset
rs.Open "telecom08", "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=TE;Data Source=DALFONSO\BKUPEXEC", adOpenStatic

pero lo que necesito e conectarme a la base de datos, revise las referencias y no se cual me falta intente cargar las librerias Microsoft Activex Data Objet X.X Library segun algunos manuales pero sigo sin poder salir del error del Cone ConnectionString = USO NO VALIDO DE LA PROPIEDAD

alguna ayuda ?? GRACIAS