DataReader - Leggere il valore di un campo

legge campo

Dim sql As String = "SELECT Idcondominio FROM Appalti WHERE id = " & TextBox0.Text
Dim cmd As New OleDbCommand(sql, Dbazienda)
Dim dr As OleDbDataReader = cmd.ExecuteReader
dr.Read()
MyCliente = dr(0)

dr.Close()