RE:Conectar Visual con SQL 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.