Option Compare Database
Option Explicit
Private ctlListBox As ListBox
Private StrTextName As String
Private StrRecordTblF1 As String
Private StrRecordTbl As String
Private StrRecordTblID As String
Private Sub Form_Load()
' Edit the Lines below
Set ctlListBox = Forms!frmPublisherList!publistList 'Point this at ListBox
StrTextName = "Publisher" 'Edit this to whatever Name you are editing
StrRecordTbl = "tblpublishers" 'Table your editing
StrRecordTblID = "PublisherID_PK" 'Table Primary ID Field Name
StrRecordTblF1 = "PublisherName" 'Main Table Field your Editing
' Stop Editing
End Sub