Función Visual Basic .NET para contar los registros de una tabla pasando como parámetro la instrucción SQL select count(*) from nombre_tabla

    Public Function RegCountTable(ByVal Sql As String, ByVal ConnectionString As String) As Int32
       'ejemplo parámetro Sql = "select count(*) from nombre_tabla"
       Dim res As Int32 = -1

        Try
            Dim cn As New SqlConnection(ConnectionString)
            cn.Open()

            Dim cmd As New SqlCommand(Sql, cn)
            res = Convert.ToInt32(cmd.ExecuteScalar())

            cn.Close()
            cn = Nothing

        Catch ex As Exception
            Debug.WriteLine(Sql & " " & ex.Message)
        End Try

        Return res
    End Function