/* PARTE webservice.asmx */ 
<WebMethod()> _ 
Public Function ritornaGrglia(stringa) as datatable
popoli il ds
return ds(0)
end function 

e nella parte client:
Dim sql As String = "SELECT ut_cognome,ut_nome,ut_codice,ut_sesso,ut_citta,ut_provincia,ut_dataregistrazione,ut_credito,ut_statochat,ut_connesso,ut_ultimaconn,ut_telefono FROM utenti ORDER BY ut_cognome,ut_nome" 


Dim webConsumer As New localhost.WebService1 

 datagrid1.datasource = webConsumer.ritornaGrglia(sql)