Tengo una pequeña funcion buscar en una clase "Cliente" y me marca un error en la sentencia "rs = Conectar.EjecutarConsulta(cmd)
".... el error que me aparece dice: "Se produjo una excepción en el inicializador de tipo de 'BUSCAR.Conectar'."

¿¿¿¿¿¿alguen tiene idea de proque puede ser?????







Public Function BuscarCliente(ByVal DNI As Integer) As List(Of Cliente)

Dim cmd As New SqlCommand
cmd.CommandText = "Select [DNI], [Nombre], [Apellido] from [Cliente] where DNI=@DNI"
cmd.CommandType = CommandType.Text

Dim prm As New SqlParameter
prm.ParameterName = "@DNI"
prm.Direction = ParameterDirection.Input
prm.Value = Me.DNI
cmd.Parameters.Add(prm)

Dim rs As SqlDataReader
rs = Conectar.EjecutarConsulta(cmd) '<--------ACA ERROR

Dim r As Cliente
r = New Cliente()
r.Nombre = rs("Nombre")
r.Apellido = rs("Apellido")

End Function