Visual Basic - Conectar Visual con SQL 2000

Necesito conectar una aplicación en Visual basic con SQL 2000 server...
lo puedo hacer con sql 70 pero no me resulta con 2000

Debes de activar la referencia "Microsoft ActiveX Data Objects 2.7 Library"
Para conectarte seria:
Public cnBase As ADODB.Connection
Public Sql As String
Public Rec As Recordset
Public Function Abrir() As Boolean
On Error GoTo Errores
Set cnBase = New Connection
cnBase.CommandTimeout = 1200
usuario = "TuUsuario"
Password = "TuPassword"

cnBase.Open "Provider=MSDASQL.1;Password=" & Password & ";Persist Security Info=True;User ID=" & usuario & ";Data Source=DsAdmDemo"
cnBase.CursorLocation = adUseClient

Set Rec = New Recordset
With Rec
.ActiveConnection = cnBase
.CursorLocation = adUseClient
.CursorType = adOpenForwardOnly
.LockType = adLockReadOnly
End With
Abrir = True
End Function
Nota:DsAdmDemo es mi nombre del ODBC donde tengo configurado hacia que servidor va y base de datos.