Imports System
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.Web.Services.Description
'Imports System.Data
 
<System.Web.Services.WebService(Description:="Datenabruf ", _
  Namespace:="http://tempuri.org/Datenabruf/Datenabruf/")> _
 Public Class Datenabruf/
    Inherits System.Web.Services.WebService
 
#Region " Vom Webdienst-Designer generierter Code "
...
#End Region
 
    Public Uebergabe As clsUebergabe
 
    <WebMethod _
      (Description:="TEST", _
       EnableSession:=False), _
       SoapHeader("Uebergabe", direction:=SoapHeaderDirection.InOut)> _
         Public Function Datenabruf() As DataSet
             Dim Kiterien As clsUebergabe = Uebergabe
              ...
             Return Dataset
         End Function
End Class

Imports System.Web.Services.Protocols
Public Class clsUebergabe
    Inherits SoapHeader
    Public TEST As String   ' <--- nur zum Test
    Dim mySystem As String
    Dim myStammdatenabruf As Boolean = False
    Dim myUmsatzdatenabruf As Boolean = False
    Dim mySELECT As Collection
    Dim myWHERE As Collection
    Dim myGROUP As Collection
    Dim mySUM As Collection
    Dim myCOUNT As Boolean = False
    Public Sub New()
        MyBase.New()
    End Sub
    Public Sub setSystem(ByVal System As String, ByVal Stammdatenabruf As _
      Boolean, ByVal Umsatzdatenabruf As Boolean)
        mySystem = System
        myStammdatenabruf = Stammdatenabruf
        myUmsatzdatenabruf = Umsatzdatenabruf
    End Sub
    Public ReadOnly Property System() As String
        Get
            Return mySystem
        End Get
    End Property
...
   Public WriteOnly Property addSELECT(ByVal Feld As String)
        Set(ByVal Value)
            mySELECT.Add(Feld)
        End Set
    End Property
...
   Public WriteOnly Property addWHERE(ByVal Bedingung As clsWHERE)
        Set(ByVal Value)
            myWHERE.Add(Bedingung)
        End Set
    End Property
...
   Public Class clsWHERE
        Public myFeld As String = ""
        Public myOperator As String = ""
        Public myWert As String = ""
    End Class
End Class