***.. 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 __________________