Codigo no se ejecuta luego de correr una función

[Highlander]

Hola estoy algo complicado con este codigo, se ejecuta no marca errores y devuelve el resultado correcto, pero luego de que termina el demas codigo no se ejecuta (posterior a esta función)


La función que causa la anomalía:

Código:

Public Function ContarRegistros(ByVal Tabla, ByVal Atributo)


        mSqlServerExpress.Conectar()

        Dim result As String = Nothing
        Dim sql As String = "SELECT count('" & Atributo & "') as Codigo FROM " & Tabla

        Try

            Dim cmd As SqlCommand = New SqlCommand(sql, conexionSqlEx)
            Dim rs As SqlDataReader = cmd.ExecuteReader()

            While rs.Read

                Dim Codigo As Integer = rs.GetOrdinal("Codigo")
                
                result = rs.GetInt32(Codigo)

            End While

        Catch sqlexception As SqlException

            MessageBox.Show(sqlexception.Message, "Error:", MessageBoxButtons.OK, MessageBoxIcon.Error)

        Catch ex As Exception

            MessageBox.Show(ex.Message, "Error:", MessageBoxButtons.OK, MessageBoxIcon.Error)

        Finally

            mSqlServerExpress.Desconectar()

        End Try

        Return result

    End Function

Cualquier orientación es apreciada.