Thank you for your reply ebs17. I'm getting an error on the Select Statement. Not sure how to correct it?
Dim sSQL As String
If Not IsNull(Me.OpenArgs) Then
sSQL = "SELECT qryDogs3.DogID, qryDogs3.[Puppy Name], qryDogs3.BirthDate, qryDogs3.Mother, qryDogs3.PuppyNumber, " _...