"Control Source" and "Default Value" are both properties. I don't know which one you set or how you did it. CODE Private Sub Command40_Click() On Error GoTo Err_Command40_Click Dim stDocName As String stDocName = "Transfer Form" DoCmd.OpenForm stDocName , , , , , , Me.Customer DoCmd.GoToRecord acActiveDataObject, , acNewRec Exit_Command40_Click: Exit Sub Err_...