Public Function Datenbank_abfragen(ByVal daten As Object, ByVal anzahl As _
  Integer)
        'Dim anzahl As Integer = 5
        Dim anfrage(1, anzahl) As Integer
        Dim wert1, wert2 As Integer
        Dim selects(anzahl) As String
        Dim ds As New DataSet
        ''test
        'Dim daten(1, 5) As Integer
        'For i As Integer = 0 To 4
        '    daten(0, i) = 296
        'Next
        'daten(0, 5) = 298
        'daten(1, 0) = 2
        'daten(1, 1) = 3
        'daten(1, 2) = 6
        'daten(1, 3) = 7
        'daten(1, 4) = 8
        'daten(1, 5) = 11
 
        ''______________________________
        anfrage = daten
        Dim dbconn As New SqlClient.SqlConnection( _
          "Server=Test;Database=TestServer7438;User" & _
          "ID=testuser;Password=testuser;Trusted_Connection=False")
        For i As Integer = 0 To anzahl - 1
            wert1 = anfrage(0, i)
            If wert1 > 0 And wert1 <> wert2 Then
             selects(i) = "SELECT PID, TID, PTID FROM dboTest WHERE (PID = " & _
               wert1 & ")"
                wert2 = wert1
            End If
        Next
        Dim da As SqlClient.SqlDataAdapter
        For i As Integer = 0 To anzahl - 1
            If selects(i) <> "" Then
                da = New SqlClient.SqlDataAdapter(selects(i), dbconn)
                da.Fill(ds, "Test_" & anfrage(0, i))
            End If
        Next
        'ds.WriteXml(Server.MapPath("save") & "/test.xml")
        Return ds
    End Function

 Try
            Dim service As New WebServiceMobil.Service1
            Dim ds As DataSet = New DataSet
            service.Datenbank_abfragen(anfrage, anzahl)
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try