DEMASIADO URGENTE POR FAVOR :o(

Tengo una conexión a la BD de mi PC que está configurado como servidor SQL y
me sale el siguiente error al tratar de conectar:

"El servidor sql no existe o se ha denegado el acceso"

Lo extraño es que las primeras sentencias de SQL si las ejecuta
perfectamente. (LAS DEL INICIO DE SESIÓN DEL USUARIO)

El problema se presenta luego del INICIO DE SESIÓN.


strConn = "Server=MIPC;Database=MYDB;Trusted_Connection=True;"
Dim connzona As New SqlConnection(strConn)
Dim objDRzona As SqlDataReader
Dim sqlzona As String = "Select zona from zonas where zona =
'" & Me.txtzona.Text & "'"
Dim Cmdzona As New SqlCommand(sqlzona, connzona)
connzona.Open()
objDRzona =
Cmdzona.ExecuteReader(System.Data.CommandBehavior.CloseConnection)


¿Cuál podrá ser el problema?