Visual Basic - Conexion a sql server

Hola amigos...soy nuevo en esto y quisiera saber como puedo conectarme a sql server 2000

Quiero hacerlo simple con visual basic, con un formulario que tiene un boton y un combo box, que al momento de presionar el boton se conecte a la base de datos y realizando un select para que muestre los nombres que se encuentra almacenados en el combo box...

es algo simple, pero no logro realizar la conexion a la base de datos...

se los agradeceria que me ayudaran, gracias.

espero que esto te ayude


Option Explicit

Private cnn As ADODB.Connection
Private rst As ADODB.Recordset

Private Sub cmdAbrir_Click()
Dim tField As ADODB.Field
'
' Por si ya estaba abierta...
Set cnn = Nothing
Set rst = Nothing
'
' Crear los objetos
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
'
' abrir la base usando las credenciales de Windows
cnn.Open "Driver={SQL Server};Server=nombredelservidor;Database=nombredelabasededatos;Uid=;Pwd=;"

' abrir el recordset indicando la tabla a la que queremos acceder
rst.Open "SELECT * FROM nombretabla", cnn, adOpenDynamic, adLockOptimistic
'
' Asignar los nombres de los campos al combo
With cboCampos
.Clear
For Each tField In rst.Fields
.AddItem tField.Name
Next
.ListIndex = 0
End With
'
' Cerrar el recordset y la conexión
rst.Close
cnn.Close
'
End Sub

espero que esto te ayude


Option Explicit

Private cnn As ADODB.Connection
Private rst As ADODB.Recordset

Private Sub cmdAbrir_Click()
Dim tField As ADODB.Field
'
' Por si ya estaba abierta...
Set cnn = Nothing
Set rst = Nothing
'
' Crear los objetos
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
'
' abrir la base usando las credenciales de Windows
cnn.Open "Driver={SQL Server};Server=nombredelservidor;Database=nombredelabasededatos;Uid=;Pwd=;"

' abrir el recordset indicando la tabla a la que queremos acceder
rst.Open "SELECT * FROM nombretabla", cnn, adOpenDynamic, adLockOptimistic
'
' Asignar los nombres de los campos al combo
With cboCampos
.Clear
For Each tField In rst.Fields
.AddItem tField.Name
Next
.ListIndex = 0
End With
'
' Cerrar el recordset y la conexión
rst.Close
cnn.Close
'
End Sub

ANTES DE HACER ESA SINTAXIS NECESITAS UNA REFERENCIA(MENU INSERTAR -REFERENCIA) :MICROSOFT ADO DATA 2.6 BUENO ESE ES EL STANDAR Y DE ALLI YA PROGRAMAS ESTO:
`
'EN LA PARTE SUPERIOR DE LA CODIFICACION PRIMERA LINEA
'EJEMPLO POR DEFAULT

'FORM_LOAD()
'END SUB

ESTA CODIFICACION DEBERIA SER ASI

'CODIGO DE CONEXION
FORM_LOAD()
END SUB

Option Explicit

Private cnn As ADODB.Connection
Private rst As ADODB.Recordset

Private Sub cmdAbrir_Click()
Dim tField As ADODB.Field
'
' Por si ya estaba abierta...
Set cnn = Nothing
Set rst = Nothing
'
' Crear los objetos
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
'
' abrir la base usando las credenciales de Windows
cnn.Open "Driver={SQL Server};Server=nombredelservidor;Database=nombredelabasededatos;Uid=;Pwd=;"

' abrir el recordset indicando la tabla a la que queremos acceder
rst.Open "SELECT * FROM nombretabla", cnn, adOpenDynamic, adLockOptimistic
'
' Asignar los nombres de los campos al combo
With cboCampos
.Clear
For Each tField In rst.Fields
.AddItem tField.Name
Next
.ListIndex = 0
End With
'
' Cerrar el recordset y la conexión
rst.Close
cnn.Close
'
End Sub

SALUDOS DESDE PERU
ADAN