You can use DAO object library. Add a reference to Microsoft DAO library 3.51 (or select the highest version you have installed on your computer). Also, add a listbox to your form. Then you can use this code:
Assuming that I have a table called MyTable and a field in that table called Name.Code:Dim db As Database Dim rs As Recordset Set db = Workspaces(0).OpenDatabase("C:\MyDB.mdb") 'Change this to appropriate path Set rs = db.OpenRecordset("MyTable", dbopenTable) Do Until rs.EOF List1.AddItem rs("Name") rs.MoveNext Loop
------------------
Serge
Software Developer
[email protected]
[email protected]
ICQ#: 51055819
[This message has been edited by Serge (edited 12-14-1999).]




Reply With Quote