Error: Tiempo de espera caducado

[ajmataurus]

ME OLVIDO DE ESTE: LLENA _MDEUDAS
_____________
Private Sub LLENA_MDEUDAS(ByVal suministro As Decimal)
Dim oComm As New SqlDataAdapter("Com_FacEstDeudas_sp '" & suministro & "'", oConn)
Dim DT As New DataTable
oComm.Fill(DT)
DataGrid1.DataSource = DT
DataGrid1.DataBind()
ajma.FuncCloseConenction(oConn)
End Sub
___________

AHH EL INCIO QUE PUSE ES LA SIGUEINTE FUNCIÒN
buscar_datgen(ByVal suministro As Decimal)
_____