Private Sub Form_Open(Cancel As Integer)
With cboCustomer
.RowSource = "SELECT CustNo, CustName" _
& " FROM CustMaster" _
& " UNION" _
& " SELECT '*' As CustNo, '(ALL)' As CustName" _
& " FROM CustMaster" _
& " ORDER BY CustNo;"
.Requery
End With
End Sub