Visual Basic - Problema al conectar vb6 con sql server 2008

Que tal!

Estoy teniendo problemas en conectar vb6 a sql server 2008 versión full.

Esta es mi cadena de conexion:

Código:



Tal vez esté equivocado, pero intuyo en que estoy colocando mal el nombre del servidor. En la ventana de propiedades del sql server donde dice conexión, figura este nombre: "MBF-PC (mbf-PC\mbf). La duda me entra porque en la mayoría de ejemplos de cadenas de conexión que veo, los nombres del servidor son de "xxx\sqlexpress" así que bueno...espero puedan ayudare, Saludos!

Hola Martin, no comentas el error que te da, pero yo lo utilizo es así:


Espero que te sirva...

Hola!

El código que me has pasado no me sirve porque estoy usando una conexión remota de prueba con la autenticación de windows sin logearme.

El mensaje de error que me tira con la cadena que he colocado anteriormente en mi mensaje es: No existe el servidor sql server o se ha edengado el acceso al mismo.

Hola!
espero esto te funcione
saludos

Conectar a una base de datos de SQL Server
' y mostrar los campos de la tabla
'
' Para que este ejemplo funcione, necesitamos una referencia a:
' Microsoft ActiveX Data Objects 2.0 Library (o superior)
'

'------------------------------------------------------------------------------
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

Esa cadena es la correcta, gracias por la ayuda

gracias hermanos mio