Tengo este codigo. Mi servidor SQL sever es Remoto, el problema es que al hacer una consulta desde el formulario, ya sea por folio me manda un mensaje de "Tiempo de Espera agotado para esta solicitud"

 Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim conexion1 As String
        conexion1 = "Data Source = 192.168.110.10; Initial Catalog = alumnos; User Id = consulta; Password = 12345 "
        Dim conecta As New SqlConnection(conexion1)

        Dim consulta1 As String
        consulta1 = " Select * from alumnos2008 Where (NOMBRE_C Like '%%" & Request.Form("t1") & "%%') and (CALLE Like '%%" & Request.Form("t2") & "%%') and (COLONIA Like '%%" & Request.Form("t3") & "%%') and (MUNICIPIO Like '%%" & Request.Form("t4") & "%%')"
        Dim comando1 As New SqlCommand(consulta1, conecta)

        conecta.Open()
        Dim leer As SqlDataReader
        leer = comando1.ExecuteReader()

        g1.DataSource = leer
        g1.DataBind()
        leer.Close()
        conecta.Close()

    End Sub

COMO LA EJECUTO DE FORMA ASINCRONA???