Share this Page URL
Help

UserForms > UserForms - Pg. 442

Example 18-41. Populating a UserForm from a Database Option Explicit Dim lst As MSForms.ListBox Private Sub UserForm_Initialize( ) 'Written by Helen Feddema 5-21-2000 'Last modified 5-21-2000 On Error GoTo ErrorHandler Dim Dim Dim Dim Dim Dim Dim Dim Dim Dim Dim Dim Dim Dim Dim appAccess As Access.Application dbe As DAO.DBEngine dbs As DAO.Database intItem As Integer intColumn As Integer intCount As Integer intIndex As Integer intRow As Integer intRows As Integer lngCount As Long lngRow As Long lngTableRows As Long rst As DAO.Recordset strAccessDir As String strDBName As String