ASP - problema con datagrid

Buenas a todos

estoy de nuevo por aqui T_T tengo este problema tengo un mega select que trae datos de varias tablas de foxpro el select no es el problema por q funciona correctamente ya la e probado y funciona por sia aqui esta el MEGA SELECT

SELECT BMCLIENTE.nombre nombre, BMCLIENTE.direccion1 direccion1, BMCLIENTE.direccion2 direccion2, BMCLIENTE.poblacion poblacion, BMCLIENTE.N_contacto N_contacto, BMCLIENTE.A_contacto A_contacto, BMCLIENTE.telefono telefono, BMCONTRA.Diassemana Diassemana, BMCONTRA.horas_dia Diassemana, BMCONTRA.coste_hora coste_hora, BMCONTRA.acceso acceso FROM BMCLIENTE,BMSUBCON,BMCONTRA,BMCONTRO WHERE RTRIM(upper(BMSUBCON.webuser))='51306933M' and RTRIM(upper(BMSUBCON.webpw))='51306933M' and BMSUBCON.numero = BMCONTRO.subcon and BMCONTRO.cliente_id = BMCONTRA.cliente_id and BMCONTRA.cliente_id = BMCLIENTE.cliente_id GROUP BY BMCLIENTE.nombre , BMCLIENTE.direccion1 , BMCLIENTE.direccion2 , BMCLIENTE.poblacion , BMCLIENTE.N_contacto , BMCLIENTE.A_contacto , BMCLIENTE.telefono , BMCONTRA.Diassemana , BMCONTRA.horas_dia , BMCONTRA.coste_hora , BMCONTRA.acceso

entonces el problema radica en el datagrid del visual para presentarlo en internet, mando el select y no se muestra ningun dato pero en el foxpro si se muestra el dato que puedo hacer e probado si esta mal la programacion pa llenar el datagrid y e probado con un select pequeño y funciona pero no se que pasa cuando mando este select

ayuda por favooooooooooooooooooooooooor

este es le codigo del data grid

<asp:DataGrid ID="DataGridGIRO" runat="server" CellPadding="4"
ForeColor="#FF802B" GridLines="None" PageSize="20" AllowSorting="True" AutoGenerateColumns="False" Font-Bold="False" Font-Italic="False" Font-Overline="False" Font-Strikeout="False" Font-Underline="False">
<HeaderStyle BackColor="#FF802B" Font-Bold="True" ForeColor="White" Font-Italic="False" Font-Overline="False" Font-Strikeout="False" Font-Underline="False" />
<ItemStyle BackColor="#FFFBD6" Font-Size="X-Small" ForeColor="#333333" />
<FooterStyle BackColor="#990000" Font-Bold="True" ForeColor="White" />
<SelectedItemStyle BackColor="#FFCC66" Font-Bold="True" ForeColor="Navy" />
<PagerStyle BackColor="#FFCC66" ForeColor="#333333" HorizontalAlign="Center" />
<AlternatingItemStyle BackColor="White" />
<Columns>
<asp:BoundColumn DataField="nombre" HeaderText="Nombre"></asp:BoundColumn>
<asp:BoundColumn DataField="direccion1" HeaderText="Dirección1"></asp:BoundColumn>
<asp:BoundColumn DataField="direccion2" HeaderText="Dirección2"></asp:BoundColumn>
<asp:BoundColumn DataField="poblacion" HeaderText="Población"></asp:BoundColumn>
<asp:BoundColumn DataField="N_contacto" HeaderText="Nombre Contacto"></asp:BoundColumn>
<asp:BoundColumn DataField="A_contacto" HeaderText="Apellido Contacto"></asp:BoundColumn>
<asp:BoundColumn DataField="telefono" HeaderText="Telefono"></asp:BoundColumn>
<asp:BoundColumn DataField="Diassemana" HeaderText="Días Semana"></asp:BoundColumn>
<asp:BoundColumn DataField="horas_dia" HeaderText="Horas Día"></asp:BoundColumn>
<asp:BoundColumn DataField="coste_hora" HeaderText="Coste Hora"></asp:BoundColumn>
<asp:BoundColumn DataField="acceso" HeaderText="Acceso"></asp:BoundColumn>
</Columns>
</asp:DataGrid>

y este es el codigo del cargado de datos

Public Sub llenar()
Dim vtxtPsw, vtxtWebUser
vtxtPsw = RTrim(Session("WebPw"))
vtxtWebUser = RTrim(Session("WebUser"))
Dim a As String
'SelectCommand = "SELECT BMCLIENTE.nombre nombre, BMCLIENTE.direccion1 direccion1, BMCLIENTE.direccion2 direccion2, BMCLIENTE.poblacion poblacion, BMCLIENTE.N_contacto N_contacto, BMCLIENTE.A_contacto A_contacto, BMCLIENTE.telefono telefono, BMCONTRA.Diassemana Diassemana, BMCONTRA.horas_dia Diassemana, BMCONTRA.coste_hora coste_hora, BMCONTRA.acceso acceso FROM BMCLIENTE,BMSUBCON,BMCONTRA,BMCONTRO WHERE RTRIM(upper(BMSUBCON.webuser))='"&vtxtWebUser&"' and RTRIM(upper(BMSUBCON.webpw))='"&vtxtPsw&"' and BMSUBCON.numero = BMCONTRO.subcon and BMCONTRO.cliente_id = BMCONTRA.cliente_id and BMCONTRA.cliente_id = BMCLIENTE.cliente_id GROUP BY BMCLIENTE.nombre , BMCLIENTE.direccion1 , BMCLIENTE.direccion2 , BMCLIENTE.poblacion , BMCLIENTE.N_contacto , BMCLIENTE.A_contacto , BMCLIENTE.telefono , BMCONTRA.Diassemana , BMCONTRA.horas_dia , BMCONTRA.coste_hora , BMCONTRA.acceso"
Try
Dim myConnection As New OleDbConnection(System.Configuration.ConfigurationManager.AppSettings("Conole9"))
Dim myCommand As New OleDbDataAdapter(SelectCommand, myConnection)

'se llena el grid con los resultados
Dim ds As New DataSet()
myCommand.Fill(ds)
DataGridGIRO.EditItemIndex = -1
DataGridGIRO.DataSource = ds
DataGridGIRO.DataBind()

Catch ex As Exception
a = ex.ToString
Response.Write(a)
End Try
End Sub

por fa por fa por fa ayudaaaaaaaaaaaaaaaaaaaa estoy desesperado todo me sale menos esa parte ayudaaaaaaaaaaa