Busqueda avanzada

[Yerim]

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"

Imports System.Data
Imports System.Data.SqlClient


Partial Class list
Inherits System.Web.UI.Page

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

Dim conexion1 As String
conexion1 = "Data Source = alumnos_2007; Initial Catalog = industrial; User Id = tesco; Password = tesco01 Asynchronous Processing = true"
Dim conecta As New SqlConnection(conexion1)

Dim consulta1 As String
consulta1 = "Select * From grupo_6540 Where (Folio like '%%" & Request.Form("t1") & "%%') and (Matricula Like '%%" & Request.Form("t2") & "%%')"
Dim comando1 As New SqlCommand(consulta1, conecta)

Dim adapter1 As New SqlDataAdapter
adapter1.SelectCommand = comando1

conecta.Open()

Dim dataset1 As New DataSet

adapter1.Fill(dataset1, "grupo_6540")

conecta.Close()

g1.datasource = dataset1
g1.databind()

End Sub


End Class