total - 1 records are showing using OleDbDataReader pls help
my code is
my code is
Code:
Dim i As Integer = 0
Acc_Sql = "select sdo from comp1"
Conn_Acc.Open()
Dim my_cmd As OleDbCommand = New OleDbCommand(Acc_Sql, Conn_Acc)
Dim re As OleDbDataReader = my_cmd.ExecuteReader()
re.Read()
For Each rec In re
val(i) = re.Item("SDO").ToString
ListBox1.Items.Add(val(i))
Next
Conn_Acc.Close()