Private Sub Form_Open(Cancel As Integer) Dim strLastName As String strLastName = "Miller" DoCmd.GoToControl "ctlCustLastName" DoCmd.FindRecord strLastName End Sub