Error al asignar datareader a gridview

[hasan]

Hola tengo el siguiente problema,

genero la siguiente consulta:

Private Function ObtenerSQL_Count_Users() As String
Return "select usuario,count(*) as Solicitudes" & _
" from sol_mtto WHERE fecha BETWEEN '" & TextBox1.Text & "' AND '" & TextBox1.Text & "'" & _
" group by usuario" & _
" order by 2 desc"
End Function

Posteriormente trato de asignarla a un gridview:

Public Function ObtenerConexion() As String
Return "Data Source=ISMAELAA\MSSMLBIZ;Initial Catalog=Sistema_Intranet;Integrated Security=True"
End Function

Private Sub Consulta(ByVal Con As String)
conexion = New SqlConnection(ObtenerConexion)
comando = New SqlCommand(Con, conexion)
conexion.Open()
lector = comando.ExecuteReader()
End Sub

private sub Consultar()
Consulta(ObtenerSQL_Count_Users)
GridView1.DataSource = lector
GridView1.DataBind()
lector.Close()
end sub

Se supone que al ejecutar el procedimiento consultar, deberia cargar el gridview con los datos de Lector
pero aun cuando lector SI contiene datos no muestra nada, espero puedan ayudarme con esto gracias.