Visual Basic - Como hago una conexion a SQL Server 2000

Hola a todos.....
Como puedo hacer una conexion a una base de datos SQL Server 2000 y a partir de alli generar un recordset a una tabla.
Desde ya muchas GRACIAS

En un modulo declara lo siguiente:

Public Sub ConexionBD()
Set Cn = New Connection
With Cn
.ConnectionString = "provider =SQLOLEDB.1;USER ID = sa; initial catalog = NombreBD;data source=(local)"
.Open
End With
End Sub

Para abrir un recordset

Set RSn = New Recordset
RSn.CursorLocation = adUseClient
RSn.CursorType = adOpenKeyset
RSn.LockType = adLockOptimistic
RSn.Open "Select * from Tabla", Cnn