Visual Basic - Conexion VB con SQL 2000 SERVER

Hola:

Me podrian asesorar sobre como establecer una conexion con servidor sql server a la hora de cargar mi formulario.

Puse un Adodc1

Pero no se como hacer la conexion.

La quiero hacer desde codigo

Please

hola, podés hacer la conexion desde el codigo mediante la cracion de una cadena de coneccion de ado. Para esto necesitas agregar a tu proyecto una referencia a Microsoft ActiveX Data Objects 2.x Library.
Podés crear en un módulo estándar el siguiente procedimiento:

Public mConexion as ADODB.Connection

Public Sub ConectarBD(strPass as String, strUser as String, strNombreBD as String, strNombreServidor as String)

dim strCadena as String

strCadena = "Provider=SQLOLEDB.1;Password=" & strPass & ";Persist Security Info = True; User ID=" & strUser & ";Initial Catalog=" & strNombreBD & ";Data Source =" & strNombreServidor

Set mConexion = New ADODB.Connection
mConexion.Open strCadena

End Sub

'Pon este código en un modulo

' Abrir conexión con SQL
Public CE As Connection
' si da el error 3001 es que falta declarar la conexion
Sub AbrirConexion()
Set CE = New Connection
CE.Provider = "SQLOLEDB"
CE.ConnectionString = "User ID = sa; Password=;" & "data Source = SERVIDOR;" & "Initial Catalog=BASE_DE_DATOS"
CE.Open
End Sub

'y en el Form en el Load:
AbrirConexion

'y listo tienes la conexión abierta en este form para hacer lo que quieras

'salu2 y suerte