Acceso rapido a SQl 2000

Hola a todos los del foro :

Alguien sabe cual es la mejor manera de acceder a un BD en SQL 2000, es decir q el acceso a ella sea de manera rapida ?

io probvee con esto donde BD es mi Base de Datos pe

:

Set Cnn = New ADODB.Connection
Cnn.CursorLocation = adUseClient
Cnn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=" & BD & ";Data Source=."
Cnn.Open

With CmdProducts
.ActiveConnection = Cnn
.CommandText = "Products" ' tabla
.CommandType = adCmdTable
.Prepared = True
.Execute
End With
Set RstProducts = New ADODB.Recordset
RstProducts.CursorLocation = adUseClient
RstProducts.Open CmdProducts, , adOpenDynamic, adLockOptimistic

y nahaaaa ahora esto dependera ? de los datos q estoy jalando de mi BD o de la consulta q realizo? , la PC q tengo es una P4 2.8, 1Gb de ram (servidor) y el cliente es de P4 2.4, 512 ram aun asi quisiera saber si hay otra manera de acceder a la BD de una maera mas raipido? o mejor cambiod e lenguaje como PB9.0 (dicen q el acceso es mas rapido - sera cierto ?)

gracias a todos pro leer el msje y ayudar en la consulata bye...

conexion = "Provider=SQLOLEDB.1;" & _
"Persist Security Info=False;" & _
"User ID=" & Usuario & ";" & _
"pwd=" & Pass & ";" & _
"Initial Catalog=" & basededatos & ";" & _
"Data Source=" & Servidor

On Local Error Resume Next
BD.Open conexion
If Err Then MsgBox Err.Number & vbCrLf & Err.Description
exit sub
On Local Error GoTo 0