Dim fila1 As DataRow
Dim form3 As New WebForm3
Dim tabla As New DataTable
Dim strcomando As String
Dim adaptador As OleDb.OleDbDataAdapter
Dim contfila As Integer
Dim dt As New DataTable
'REALIZANDO LA CONECCION PARA REQUISICIONES
Dim conexion As New OleDbConnection("provider=vfpoledb.1;data source=C:\requisiciones\ad_reqi.dbf;")
conexion.Open()
strcomando = "select numreq,descri from ad_reqi"
adaptador = New OleDb.OleDbDataAdapter(strcomando, conexion)
' CB = New OleDbCommandBuilder(adaptador)
adaptador.Fill(ds3, "ad_reqi")
For Each fila1 In ds3.Tables("ad_reqi").Rows
contfila += 1 'Response.Write(fila.Item("clave"))
Next
Dim x, band As Integer
Dim numreq, cortar As String
band = 0
fila1 = ds3.Tables("ad_reqi").Rows(x)
For cont As Integer = 1 To contfila
fila1 = ds3.Tables("ad_reqi").Rows(x)
numreq = fila1.Item("numreq")
cortar = Mid("numreq", 3, 4)
If (StrComp(Session("depto"), cortar)) Then
la variable de session que tengo es por que los datos deben ser igual a la variable que tengo y en cortar en por que, tengo que cortar una cadena que extrigo por que solo necesito dos caracteres de esa cadena
Aqui intento refrescar el datatagrid, pero la maquina se bloquea

datagrid1.datasource=ds3
Else
x += 1
End If
Next
aqui el datagrid me devuelve todos los campos(no los ocupo asi)

DataGrid1.DataSource = ds3
DataGrid1.DataBind()
conexion.Close()
Espero alguien me pueda ayudar por que la verdad no se ni que onda, ojala me pudiesen orientar, gracias y nos seguimos escribiendo.