Public Function CreateCustomerAdapter(ByVal connection As SqlConnection) As SqlDataAdapter

        Dim adapter As SqlDataAdapter = New SqlDataAdapter()

        ' Create the SelectCommand.
        Dim command As SqlCommand = New SqlCommand(
        "SELECT * FROM Customers " &
        "WHERE Country = @Country AND City = @City", connection)

        ' Add the parameters for the SelectCommand.
        command.Parameters.Add("@Country", SqlDbType.NVarChar, 15)
        command.Parameters.Add("@City", SqlDbType.NVarChar, 15)

        adapter.SelectCommand = command

        Return adapter
    End Function

    Private Sub ButtonSelect_Click(sender As Object, e As EventArgs) Handles ButtonSelect.Click

        Try

            CreateCustomerAdapter(connection).Fill(ds, "Customers")
            dgMain.DataSource = ds
            dgMain.DataMember = "Customers"

        Catch ex As Exception
            MsgBox("Ошибка: " & ex.Source & ": " & ex.Message, MsgBoxStyle.OkOnly, "ButtonSelect.Click")
        End Try

    End Sub

Public Function CreateCustomerAdapter(ByVal connection As SqlConnection,
                                          prn1 As SqlParameter, prn2 As SqlParameter) As SqlDataAdapter