Try this. The combobox must be unbound. Code will create a value list for the combobox.
I assume you have code for the after_update event to update the company details.
The combobox format is one column with a single column width specified.
Code:
'---------------------------------------------------------------------------------------
' Method : Form_Load
' Author : davegri
' Purpose: Define the value lists for combo box cboCompany
' based on the current contents of tblCompany
'---------------------------------------------------------------------------------------
Private Sub Form_Load()
strList = "ALL;"
With Me.cboCompany
With CurrentDb.OpenRecordset("SELECT DISTINCT Company FROM tblCompany;")
Do Until .EOF
strList = strList & !Company & ";"
.MoveNext
Loop
End With
.RowSourceType = "Value List"
.RowSource = strList
End With
End Sub