'-- Use a generic BusinessLayer to fill a datatable and get some arbitrary data.

Dim campo1 As String = String.Empty

Dim campo2 As String = String.Empty

Using bo As New BusinessLayer()

  '-- Set data source key, so it can find data.

  bo.DataSourceKey = ""



  '-- Fill BO's data table using a SQL command...could just use the String overload

  '   but if you are passing params, then this is the way to go.

  Using cmd As New SqlCommand()

    cmd.CommandText = "select cli_campo01, cli_campo02, cli_classe, cli_nome from tb_cliente "

    bo.FillDataTable(cmd)

  End Using



  '-- If there are any items, load data. It'll be on the first row by default.

  '   If you need to move to another row, BO has methods to get this done.

  If bo.Count > 0 Then

    campo1 = Ctype(bo.CurrentRow("server_cliente"), String)

    campo2 = Ctype(bo.CurrentRow("db_cliente"), String)

    classe_cliente = Ctype(bo.CurrentRow("cli_classe"), String)

    nome_cliente = Ctype(bo.CurrentRow("cli_nome"), String)

  End If

End Using