Bind List View Using Microsoft.Jet.OLEDB.4.0 / Access Database

Try

Dim str As String

str =

"Select * from Salary"

Dim rs As New ADODB.Recordset

rs.Open(str,

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Application.StartupPath & "\Salary+Salary.mdb; Jet OLEDB:Database Password=moons", ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)

lv2.Items.Clear()

Dim lvitem As ListViewItem

While rs.EOF = False

lvitem =

New ListViewItem

lvitem.Text = rs(

"emp_no").Value

lvitem.SubItems.Add(rs(

"fullname").Value)

lvitem.SubItems.Add(Mid(rs(

"start_time").Value.ToString, 12, 11))

lvitem.SubItems.Add(Mid(rs(

"end_time").Value.ToString, 12, 11))

lv2.Items.Add(lvitem)

rs.MoveNext()

End While

Catch ex As Exception

MsgBox(ex.Message)

End Try