Try
 
                Dim strCon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
                  "Source=" & DBPath
 
                Dim con As New OleDb.OleDbConnection
 
                Dim DS As New DataSet
 
                con.ConnectionString = strCon
 
                Dim sqladapter As OleDb.OleDbDataAdapter
                Dim sqlstring As String
 
                sqlstring = "SELECT * FROM " & strTable
                sqladapter = New OleDb.OleDbDataAdapter(sqlstring, con)
 
                con.Open()
 
                sqladapter.Fill(DS, strTable)
 
                'For i = 0 To DS.Tables.Count - 1
                Dim bs As New BindingSource(DS, strTable)
 
                clsUnicodeListview.pictureBox.DataSource = bs
 
                clsUnicodeListview.pictureBox.Update()
                'Next
                'bs.Sort = "NavCode asc"
 
            Catch ex As Exception
                MessageBox.Show(ex.Message)
                MessageBox.Show(ex.StackTrace)
            End Try