conectar vb6 con sql server 2005 express

[atreyu_]

baje un ejemplo pero no funciona espero que me ayuden por favor, para la instalacion sql server eleji la instancia de windows, agregue componentes y libreria a el proyecto de vb, la bd esta en la carpeta por defecto del sql server aca va el codigo el error es algo de instancia creo que es por la instancia de windows que eleji (error al ejecutar servidor/instancia)

Private Sub btnConectar_Click()
' La conexión a la base de datos
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection

' Para la cadena de selección
Dim sSelect As String

' Para una base de datos normal:
sSelect = "SELECT * FROM ciudad"

cn.Open "Provider=SQLNCLI; " & _
"Initial Catalog=medio_ambiente; " & _
"Data Source=(local)\SQLEXPRESS; " & _
"integrated security=SSPI; persist security info=True;" ' El recordset para acceder a los datos
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset

' Abrir el recordset de forma estática, no vamos a cambiar datos
rs.Open sSelect, cn, adOpenStatic

' Permitir redimensionar las columnas
MSHFlexGrid1.AllowUserResizing = flexResizeColumns

' Asignar el recordset al FlexGrid
Set MSHFlexGrid1.DataSource = rs

rs.Close
cn.Close

End Sub