Private Sub cboCustomer_Change()
	If Not IsNull(Me![cboCustomer]) Then
		Me.RecordSource = "SELECT * FROM tblCustomers WHERE customerId = " _
			& Me![cboCustomer]
	End If
End Sub