You need to check the NoMatch property after a find. Also, you could use a message box to see the value in OwnersID.
Try this:
Code:
Private Sub Last_Name_Click()
Dim rs As Object
Dim lngBookmark2 As Long
'set a variable to the current record
lngBookmark2 = Me.OwnersID
' -----comment out later----
MsgBox "OwnersID = " & Me.OwnersID
' --------------------------
'open the new form
DoCmd.OpenForm "D_Contact"
'take it to the selected record
Set rs = Forms!D_Contact.RecordsetClone
rs.FindFirst "OwnersID = " & lngBookmark2
If rs.NoMatch Then
MsgBox "check OwnersID"
Else
Forms!D_Contact.Bookmark = rs.Bookmark
End If
Set rs = Nothing
End Sub
Or you might try this:
Code:
Private Sub Last_Name_Click()
'open the new form
DoCmd.OpenForm "D_Contact", acNormal, , "OwnerID = " & Me.OwnersID
End Sub