Visual Basic - Conexion a BD SQL Server

Necesito abrir base de datos de SQL SERVER 2000 con VB6 ,
Gracias

has de generar una cadena de conexión: Por ejemplo.

Dim conexion As New SqlConnection()
Dim comando As New SqlCommand()

objConnection.ConnectionString = "server=nombre_equipo;pwd="password";uid="usuario ";database=base_datos;address=direccion,puerto"
conexion.Open()

para cerrarla utiliza:

comando.Dispose()
Conexion.Close()
Conexion.Dispose()

Puedes hacerlo fácilmente con ADO.

Ejemplo

Public cnAcademia as Connection
Set cnAcadema = New Connection

With CnAcademia
.Provider = "SQLOLEDB" ' Conectividad OLE de SQL
.ConnectionString = "server=ast; database=academia; uid=usuario; pwd=password"
End With

Por ultimo abres la Conexion

cnAcademia.Open

Suerte,
Miguel !