Private Sub test_Load(sender As System.Object, e As System.EventArgs) Handles _
   MyBase.Load
        Dim db As dao.Database
        Dim rs As dao.Recordset
        Dim rsAnl As dao.Recordset2
 
        Dim dbEn As New dao.DBEngine()
        db = dbEn.OpenDatabase("c:\Users\Daniel\VB\MeineDB.accdb", Nothing, _
          False)
        rs = db.OpenRecordset("tblDetails")
 
        rsAnl = (TryCast(rs.Fields("Inserat").Value, dao.Recordset2))
 
        Do While Not rsAnl.EOF
            ListBox1.Items.Add(rsAnl.Fields("FileName").Value)
            ListBox1.Items.Add(rsAnl.Fields("FileType").Value)
            ListBox1.Items.Add(rsAnl.Fields("FileData").Value)
            rsAnl.MoveNext()
        Loop
 
End Sub