Visual Basic - COMO SOLUCIONAR ESTE ERROR AL USAR ADO ???

Holas a todos :), por favor me pueden orientar en este codigo siguiente:

Dim cnn As ADODB.Connection
Dim NumeroRegistros As Long
Dim sSQL As String

Set cnn = New ADODB.Connection

With cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & Text1.Text
.Properties("Extended Properties") = "Excel 8.0"
.Open
End With

sSQL = "SELECT * INTO [ODBC; Driver={SQL Server};" & _
"Server=SERVIDOR1; Database=BASE1;" & _
"UID=USER1;PWD=PASS1].TABLAPRUEBA " & _
"FROM [" & Combo1.Text & "]"

cnn.Execute sSQL, NumeroRegistros, adExecuteNoRecords
MsgBox "Números De Registros Importados : " & NumeroRegistros

cnn.Close
Set cnn = Nothing

... todo pasa muy bien y justo en la linea donde se ejecuta la conexion ("cnn.Execute sSQL, NumeroRegistros, adExecuteNoRecords") el visual me genera el siguiente error :
Error '-2147467259 (80004005)' en tiempo de ejecución :
ODBC--connection to '{SQL Server}SERVIDOR1 failed.

no estoy seguro de lo ke sucede, he visto este error en varios post pero no hay una solucion concreta, si fuese una referencia ya me hubiera rebotado hace rato el codigo pero no lo es... ahora puede ser halgo donde inserto en la variable sSQL este mal... mmmm no lo se ya me duele la cabeza... espero sus comentarios.. gracias...