Còmo conectar VB con SQL server 2000?

[patob]

Hola. Primero que nada, que Visual Basic utilizas? Supongo que es el 6.0
Yo te recomendaria que primero registres la base de datos en el origen de datos.
Se encuentra en panel de control-->Herramientas Administrativas-->Origenes de datos.
Ahi vas a la pestaña que dice DSN Sistema, boton agregar y seleccionas el que dice SQL Server. Ahi vas a tener que ponerle un nombre al DSN.
Despues de eso te va a dar la opcion para que elijas el tipo de autentificacion, si es la de windows o si es la propia del servidor y desues le das siguiente a todo. Ahi te fijas si quedo agregado en la lista, el nombre que le pusiste y el controlador (en tu caso SQL Server)

Ahora viene la conexion en VB 6.0
Yo personalmente la realizo de esta manera.

Sub abrirConexion()

Set cnn = New ADODB.Connection
cnn.ConnectionString = "dsn=(Nombre del DSN que pusiste en el origen de datos)"
cnn.Open , "(Nombre del servidor)", "(Contraseña del servidor)"
Set transaccion = New ADODB.Command
transaccion.ActiveConnection = cnn

End Sub

Espero este entendible, cualquier cosa a las ordenes. Salu2