Other Fields Missing in ListView

[bizzy_e23]

vb.net Code:

Dim lvwItem As New ListViewItem()Dim sSQL As String = String.EmptysSQL = "SELECT TimeIn,TimeOut FROM (Time_IN_OUT) "sSQL = sSQL & "WHERE EmpNo = '" & ListEmp.SelectedItem & "' "sSQL = sSQL & and ShiftMonth = '" & ComboPeriod.SelectedItem & "'"Dim SELMonthPeriod As New OleDb.OleDbCommand(sSQL, con)Dim READMonthPeriod As OleDb.OleDbDataReader = SELMonthPeriod.ExecuteReader() While READMonthPeriod.Read()    lvwItem = ListView1.Items.Add(READMonthPeriod.GetString(0))    lvwItem.SubItems.Add(READMonthPeriod.GetString(1))            End While __________________

having this code. i only get the first column of data in listview, the TimeOUT column doesnt appear... can anyone correct this code or comment and suggestions. THANKS.

[bizzy_e23]

***.. first of all., how can i make new lines.. harhar..

Dim lvwItem As New ListViewItem()Dim sSQL As String = String.EmptysSQL = "SELECT TimeIn,TimeOut FROM (Time_IN_OUT) "sSQL = sSQL & "WHERE EmpNo = '" & ListEmp.SelectedItem & "' "sSQL = sSQL & and ShiftMonth = '" & ComboPeriod.SelectedItem & "'"Dim SELMonthPeriod As New OleDb.OleDbCommand(sSQL, con)Dim READMonthPeriod As OleDb.OleDbDataReader = SELMonthPeriod.ExecuteReader()

While READMonthPeriod.Read()
lvwItem = ListView1.Items.Add(READMonthPeriod.GetString(0)) lvwItem.SubItems.Add(READMonthPeriod.GetString(1))
End While __________________

[.paul.]

Dim lvwItem As New ListViewItem(READMonthPeriod.GetString(0))
lvwItem.SubItems.Add(READMonthPeriod.GetString(1))
listview1.items.add(lvwItem)