WebService colgado

[elladooscuro]

Pues parece ser que es al devolver el dataset que me lo pone a nothing , el codigo es bastante simple :

Dim WSTemp As New RefWSlocal.Service1
Dim ds As New Data.DataSet
Dim Orden As Integer
Dim Tipo As Integer

Tipo = 1
Orden = 2

ds = WSTemp.Consulta(txtValor.Text, Tipo, Orden)

If ds Is Nothing Then
lbSeleccion.Text = "No se han encontrado registros"
End If
dg.DataSource = ds
dg.DataBind()

ds = Nothing


dg es un datagrid