Dim ProdUserID As String = "samurai"
        Dim ProducaoSource As New SqlDataSource()
        ProducaoSource.ConnectionString = ConfigurationManager.ConnectionStrings("seaempiresdbConnectionString1").ToString()
        ProducaoSource.SelectCommandType = SqlDataSourceCommandType.Text
        ProducaoSource.SelectCommand = "SELECT * FROM Producao WHERE ProdUserID=UtilizadorID"
        Dim TotalLinhas As Integer = 0
        Try
            TotalLinhas = ProducaoSource.Select()
        Finally
        End Try