Visual Basic - comenzar con ADO

Hola amigos como estan nuevamente solicito de su ayuda:
Tengo un problema lo que pasa es que estoy tratando de acceder desde una aplicacion de VB6 a un base de datos en SQL server y debo hacerlo mediante una conexion ADO ya intente hacerlo siguiendo unos ejemplos pero al moneto de de ejecutar el fron end para guardar datos me sale el siguiente error:

ERROR "3001" EN TIEMPO DE EJECUCION
ARUMENTOS INCORRECTOS,FUERA DEL INTERVALO PERMITIDO
O EN CONFLICTO CON OTROS.

ENTONCES NECESITO QUE ALGUIEN ME INDIQUE EN LOS PASOs QUE DEBO SEGUIR PARA PODERME CONECTAR MEDIANTE ESTA MANERA DEBO AGREGAR UN DNS O SIMPLEMENTE LA CADENA DE CONEXION O AGREGAR UN CONTROL ADO AL FORM

MI CODIGO ES ESTE
Set varconect = New ADODB.connection

varconect.ConnectionString = "driver={SQL Server};server=SACRILEGIO;Uid=sa;Pwd=;datadase=BASE"
varconect.CommandTimeout = 30
varconect.Open
varconect.CursorLocation = adUseServer

PORFAVOR ALGUIEN AYUDEME

Tienes el ConnectionString mal es así:

varconect.ConnectionString ="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=BASE;Data Source=SACRILEGIO"