Ho fatto cosi'

codice:
    <WebMethod(BufferResponse:=False, Description:="Retreive Addresses by Typing the Name.", MessageName:="FindAddress_Name")> _
    Public Function FindAddress(ByVal bName As String) As DataSet
        'Gestore eccezioni SOAP
        Dim CN As New OleDbConnection(System.Configuration.ConfigurationSettings.AppSettings("connAS"))
        Dim CMD As New OleDbCommand
		Dim DA As New OleDbDataAdapter
		Dim DS As New DataSet
        Dim strQry As String
        strQry = "SELECT * "
        strQry += "FROM GL400.INDIR00F "
        strQry += "WHERE NAME1 LIKE ? "
        strQry += "ORDER BY CODE"
		With CMD
			.Connection = CN
			.CommandText = strQry
		End With
		Dim myParameter As New OleDbParameter("NAME1", OleDbType.varChar, 25, "NAME1")
		myParameter.Direction = ParameterDirection.Input
		myParameter.Value = bName
		CMD.Parameters.Add(myParameter)
		DA.SelectCommand = CMD
            Try
				DA.Fill(DS)
				Return DS
            Catch ex As Exception
                'Return ex.Message
			Finally
				CN.Close
				CN = Nothing
            End Try
    End Function
Ma manca qualche cosa perchè la query non mi da record ...