Visual Basic - Conexion

HOLA A TODOS, UNA CONSULTA, DESARROLLE UNA BASE DE DATOS EN SQL SERVER 2005 Y DESDE VISUAL 6.0 QUIERO REALIZAR LA CONEXION, ALGUIEN ME PUEDE DECIR COMO LO HAGO. MUCHAS GRACIAS

HOLA: ACA TE MANDO UN EJEMPLO... ESPERO Q TE SIRVA:
*************************************************
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 "Provider=SQLOLEDB; " & _
"Initial Catalog=pubs; " & _
"Data Source=(local)NETSDK; " & _
"integrated security=SSPI; persist security info=True;"
'
' abrir el recordset indicando la tabla a la que queremos acceder
rst.Open "SELECT * FROM authors", 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

HOLA NUEVAMENTE Y DISCULPA,,, SE ME OLVIDO ESTO:

**********************
Para eL ejemplo, tendrAs un formulario en el que colocarAs un botón llamado cmdAbrir y un ComboBox llamado cboCampos.

También necesitas una referencia a: Microsoft ActiveX Data Objects 2.0 Library o cualquier versión superior que tengas.

En la parte general de declaraciones tendras definidas dos variables, una de un objeto Connection y otra de un objeto Recordset.

En el evento del botón cmdAbrir haras todo el proceso de conectar a la base de datos, cargar el recordset con la tabla que queramos acceder y mostraremos los campos de dicha tabla en el combo.
******************************

DESPUES DE Q AGAS ESTE EJEMPLO,,, VERAS COMO PODES CONECTAR TU BASE DE DATO.. PRACTICALO SEGURO TE SERVIRA DE LO CONTRARIO AVISAME......
SALUDOS!!!!!!!!!!!!!!!!