Visual Basic - Realizar consultas a Tablas SQL SERVER 2000

Necesito realizar consultas sql a una BD sql server 2000, abro la base de datos pero no puedo realizar lo sgte:
he probado lo sgte pero no me resulta:
**************************************************
Dim Sn As Recordset
Set Sn = Db.OpenRecordset("SELECT * From WORKSTAT", dbOpenSnapshot,64)
**************************************************

Y me manda error de distinto tipo por el Sn.

Gracias

Prueba enlazando el SQL Server mediante un puente ODBC y colocas un control ADODC y lo enlazas con el ODBC. Entonces podrias hacer la consulta que tu dices.

adodc1.recordsource = "SELECT * FROM WORKSTAT"
adodc1.refresh

Asi lo tendrias solucionado.