con = New SqlConnection(sConnectionString)

con.Open()

ds = New DataSet()

sSql = "select cli_campo01, cli_campo02, cli_classe, cli_nome from tb_cliente "

dap = New SqlDataAdapter(sSql, con)

Dim dt = New DataTable()

dap.Fill(dt)

If dt.Rows.Count > 0 Then

dim campo1 as string = dt.Rows(0).Item("server_cliente")

dim campo2 as string = dt.Rows(0).Item("db_cliente")

classe_cliente = dt.Rows(0).Item("cli_classe")

nome_cliente = dt.Rows(0).Item("cli_nome")

end if