Hola mira hace tiempo logre conectar vb6 con sqlServer2005
version EXPRESS te dejo el codigo y ojala te funcione con el 2008, tambien puedes revisar
aqui, que fue de donde me guie aunque no estoy seguro.
NOTA: Ten cuidado no recuerdo bien ahora pero creo que la version express no acepta algunos tipos de conexiones osea hay restricciones a diferencia de la version full del SQLServer, ten cuidado con eso quizas tu conexion actual este correcta pero como tienes la version express no te permite que te conectes, en algun momento perdi bastante tiempo y al final me di cuenta que era cuestion de versiones EXPRESS(Tiene restricciones de tipos de conexiones osea no acepta el initial catalog!) vs FULL(acepta todo)
Código sql:
Ver originalDim cn AS NEW ADODB.Connection
Dim SQL AS String
Private Sub Form_Load()
Dim xErr
ON Error GOTO xErr
'Coneccion a la Tabla Materiales
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
'DATA SOURCE=(LOCAL)\SQLExpress ó DATA SOURCE=.\SQLExpress
'cn.Open "Provider=SQLNCLI;Data Source=.\SQLExpress;Integrated Security=SSPI;Persist Security info=True;Initial Catalog=ventas"
cn.Open "Provider=SQLNCLI;Server=.\SQLExpress;Database=ventas;Uid=sa; Pwd=12345678;"
Exit Sub
xErr:
MsgBox "No se puede conectar a la base de datos" & " Nº de error: " & Err.Number & " | " & Err.Description, vbCritical, "Control de errores"
Err.Clear
End Sub
Private Sub Command1_Click()
Set rs = Nothing
Set rs = New ADODB.Recordset
Sql = "select * from categoria"
rs.Open Sql, cn, adOpenStatic
Set DataGrid1.DataSource = rs
End Sub