Visual Basic - Acepto Sugerencias lentitud de SQLSERVER2000

Tengo una duda de como trabajar con una aplicacion cliente
servidor que tiene un conjunto de dll entre ellas un procedimiento
com este:
Public Function Buscar(ByVal sSQLConnect As String, ByVal sSQL As String) As ADODB.Recordset
Dim oConn As ADODB.Connection Set oConn = New ADODB.Connection
oConn.ConnectionTimeout = 30
oConn.Open sSQLConnect
Dim rs As ADODB.Recordset: Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient:
rs.Open sSQL, oConn, 0, 1
Set Buscar = rs: Set rs = Nothing: Set oConn = Nothing
End Function
el cual me devuelve un recordset con la informacion que le envio atravez dela cadena de
consulta ByVal sSQL As String,y la cadena de conexion
(ByVal sSQLConnect As String) la cual llena combobox,listbox,flexgrid,datagrid,etc
la pregunta es que consideracion adicional debo tener pa
que las consultas sean mas rapidas porq si hago esto desde el mismo servidor una PIII
de 1.7 Celeron de 256Ram a estaciones de promedio de 350Mhz de 128Ram...es demasiado lento,
y no me explico el porque? alguna recomendacion! acepto todas las posibilidades o opciones q
pueda recibir....trabajar con 3 capas (MTS) y las dlls seria una posiblidad? que tanto me ayudaria esto...
porq el problema es q cuando carga un formulario o consulta esta demora como 30 segundos
promedio en visualizarse o terminar de cargar y creo es mucho ....que hago?

Prueba con la siguiente forma de abrir tu bd y tu tabla
Set cnnUnica = New ADODB.Connection
With cnnUnica
.CursorLocation = adUseClient
cnnUnica.Open "Provider=SQLOLEDB;Data Source=TUSERVIDORBD;Initial Catalog=TUBD;User Id=NOMBREUSUARIO;Password=TUCONTRASEÑA"
End With

Para tu recordset
With rsf
Set .ActiveConnection = cnnUnica
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Source = sSQL
.Open
set .activeconnection=nothing 'SI SOLO VAS A LEER TU REOORDSET
End With

Suerte
Gustavo, y cualquier otra duda, encantado en ayudarte