Conexion ODBC SQL server 2000

[biffly]

te recomiento utilizar ADO.

entra en "PROYECT -> REFERENCES " y agrega "Microsoft ActiveX Data Objects 2.x Library" te recomeiendo la 2.6 o mayos

luego creas un modulo y colocas esto:

Código:

Public Conex As New ADODB.Connection
Public rsTmp As New Recordset

Public Function Conex_On()
On Error GoTo errc
Set Conex = Nothing
Conex.ConnectionTimeout = 50
Conex.Open "Driver={SQL Server};Server=" & ServerIP & ";Uid=" & ServerDBUser & ";Pwd=" & ServerDBPassword & ";Database=" & ServerDB
Exit Function
errc:
    MsgBox "No se puede conectar con el servidor, revise la configuracion.", vbCritical
    End
End Function

Public Function Conex_Off()
Set Conex = Nothing
End Function

con eso tenes definida la conexion y desconexion, solo falta que la apliques

ej:

Código:

 Private Sub Command1_Click()
Conex_On
SQL = "SELECT * FROM tu base"
rsTmp.Open SQL, Conex
With rsTmp
    Do While Not .EOF
            tu accion aqui......
        .MoveNext
    Loop
End With
rsTmp.Close
Conex_Off
End Sub

esto lo podes hacer en cualquier parte de tu proyecto, espero te sirva.

Saludos.