'No Declarations 'Create a database with a Name "Database.mdb" 'make a field "Students" in the database. You can make others also 'in a form, draw a combo box and a command button 'draw a datacontrol in the form

Private Sub Dataconne() with data1 .databasename=App.path & "\database.mdb" 'or C:\database.mdb; path .recordsource="Select Students From Database" ' or "Students" .refresh end with end sub Private Sub Form_Load() on error resume next Do Until data1.recordset.EOF combo1.additem data1.recordset.fields("Students") data1.recordset.movenext loop End Sub