Private Sub Form_AfterInsert()
Dim strSource As String
strSource = "SELECT [ContactID], [Contact FName], [Contact LName] FROM tblContact WHERE " & me.ID.Text = Nz([ContactID], 0) & " ORDER BY [Contact LName], Contact FName];"
MsgBox (strSource)
Me.Combo137.RowSource = strSource
Me.Combo137 =...