Visual Basic - Ayuda Conexion SQL Server 2005

Hola a todos tengo el siguiente problema:
No me conecta con el servidor de Sql Server 2005 Express (con SQL Server 2000 funciona perfectamente); el error que me devuelve es:

[DBNETLIB][ConnectionOpen(Connect()).No existe el servidor SQL Server o se ha denegado el acceso al mismo.


La forma de conectarme es de la siguiente manera:

Public Sub ConectarSQLADO(Servidor As String, BaseDatos As String, Usuario As String, Contraseña As String)

Dim Sql As String
On Error GoTo Error
Sql = "provider=SQLOLEDB"
Sql = Sql & ";integrated security=SSPI"
Sql = Sql & ";persist security info=False"
Sql = Sql & ";Initial catalog=" & BaseDatos
Sql = Sql & ";data source=" & Servidor
Sql = Sql & ";User id=" & Usuario
Sql = Sql & ";Password=" & Contraseña
Conexion.Open Sql
Exit Sub
Error:
MsgBox Err.Description, vbInformation, Err.Number
End
End Sub

Un saludo