' =============== WEB SERVICE CODE (Save as .asmx file) ===============
Imports System.Web.Services
Imports System.Data.SqlClient
Imports System.Data

<WebService(Namespace:="http://tempuri.org/")>
<WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)>
Public Class DatabaseService
    Inherits System.Web.Services.WebService

    <WebMethod()>
    Public Function GetDataFromDatabase(ByVal parameter1 As String, ByVal parameter2 As Integer) As DataSet
        Dim connectionString As String = "Server=YourServer;Database=YourDB;Trusted_Connection=True;"
        Dim ds As New DataSet()

        Using conn As New SqlConnection(connectionString)
            Using cmd As New SqlCommand("SELECT * FROM YourTable WHERE Column1 = @param1 AND Column2 = @param2", conn)
                cmd.Parameters.AddWithValue("@param1", parameter1)
                cmd.Parameters.AddWithValue("@param2", parameter2)

                Using adapter As New SqlDataAdapter(cmd)
                    adapter.Fill(ds)
                End Using
            End Using
        End Using

        Return ds
    End Function
End Class

' =============== CLIENT CODE ===============
Imports System.Windows.Forms ' If using Windows Forms

Public Class ClientForm
    Private webService As New ServiceReference.DatabaseServiceSoapClient()

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            ' Example parameters
            Dim param1 As String = TextBox1.Text
            Dim param2 As Integer = Convert.ToInt32(TextBox2.Text)

            ' Call the web service
            Dim result As DataSet = webService.GetDataFromDatabase(param1, param2)

            ' Process the results
            If result.Tables.Count > 0 Then
                DataGridView1.DataSource = result.Tables(0)
            End If

        Catch ex As Exception
            MessageBox.Show("Error: " & ex.Message)
        End Try
    End Sub
End Class