Visual Basic.NET - Consulta SQL no me obtiene todos los datos si la ejecuto desde visual

SELECT        vm.Numero_Viaticos,

             vm.FechaSolicitud,

                      vm.Estado,

                      vm.UAR,

                      vm.UUA,

                       vm.FAR,

                      i.Nombres + '  ' + i.Apellidos AS NombreCompleto,

                      tv.Nombre as TipoViatico,

                      CASE WHEN datename(dw, dv.FUA) = 'Lunes' THEN dv.Total ELSE 0 END as Lunes,

                    CASE WHEN datename(dw, dv.FUA) = 'Martes' THEN dv.Total ELSE 0 END as Martes,  

                    CASE WHEN datename(dw, dv.FUA) = 'Miércoles' THEN dv.Total ELSE 0 END as Miercoles,                                  

                    CASE WHEN datename(dw, dv.FUA) = 'Jueves' THEN dv.Total ELSE 0 END as Jueves,

                    CASE WHEN datename(dw, dv.FUA) = 'Viernes' THEN dv.Total ELSE 0 END as Viernes,

                    CASE WHEN datename(dw, dv.FUA) = 'Sábado' THEN dv.Total ELSE 0 END as Sabado,

                    CASE WHEN datename(dw, dv.FUA) = 'Domingo' THEN dv.Total ELSE 0 END as Domingo

FROM         dbo.Viaticos_master vm

            INNER JOIN Viaticos_detalles dv ON vm.Id_Viaticos_Master = dv.Id_Viaticos_Master

            INNER JOIN TipoViatico tv ON dv.IdTipoViatico = tv.IdTipoViatico

            INNER JOIN dbo.Inspector i ON vm.Id_Inspector = i.Id_Inspector

            INNER JOIN dbo.Regiones r ON vm.idRegion = r.idRegion

Using MySqlAdapter As New SqlDataAdapter(Sqlstr, Conexion.ConnectionString)

                MySqlAdapter.Fill(MyDataSet)

        End Using

'Sqlstr es la cadena que contiene la consulta

SQL = "Select IDPresup[Nro Presupuesto],convert(varchar,FechaPresup,103)[Fecha]," _

                & "right(FechaPresup,8)[Hora],Case when(C.Apellido) is null then C.NombreContacto else " _

                & "C.Apellido+','+C.Nombre end Cliente,E.Apellido+','+E.Nombre[Vendedor],Case when (P.CodPago2) " _

                & "is null then T.Descripcion else T.Descripcion+'/'+T2.Descripcion end " _

                & "[Forma de Pago],TotalPresup[Total Presupuesto],Facturado,case P.Baja when 0 then" _

                & "'NO' else'SI' end Baja from TipoDePago T,Clientes C,Empleados E,Presupuestos P left join " _

                & "TipoDePago T2 on P.CodPago2=T2.CodPago where P.CodPago=T.CodPago and C.CodCli=P.CodCli and " _

                & "P.CodEmp=E.CodEmp order by 2 desc"