kill the .ldb file?

[trinic]

Dim sfile As String
sfile = App.Path & "\messages.mdb"
 
Set db = OpenDatabase(sfile)
With db
Set rstComm = .OpenRecordset("select * from [message] where [Type] = 'Internet'")
 With rstComm
    .MoveFirst
    Do While Not .EOF
        List1.AddItem .Fields("name")
     
        
        .MoveNext
    DoEvents
    Loop
End With
End With

that is mine