Visual Basic - ADO-Error en Tiempo de Espera

Hola a Todos, estoy cargando unos combos en mi programa en VB6 con SQL 6.5, pero cuando genero el ejecutable y lo instalo en el cliente(win NT) me lanza un mensaje de error "tiempo de espera muy largo" el codigo que estoy utilizado es:

Set AdoConnection = New ADODB.Connection
Set AdoRegistro = New ADODB.Recordset

ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=basema;Origen de datos=" & Servidor
AdoConnection.CommandTimeout = 120
AdoConnection.Open ConnectionString

Set AdoRegistro = AdoConnection.Execute("Select distinct cartera from " & Tabla)

cboCart.Text = AdoRegistro!Cartera
cboCart.SetFocus
Do Until AdoRegistro.EOF
cboCart.AddItem AdoRegistro!Cartera
AdoRegistro.MoveNext
Loop
----------
he creado un indice en la tabla, pero sigue igual

Yo creo que es por la propiedad querytimeaout que está a 120 y sobrepasa ese tiempo en la conexion.

Prueba a poner La propiedad a 0 que quiere decir que no tenga límite de tiempo a la hora de conectarse.