I hope I've posted this issue in the correct forum.
‘ Get the ID from the list box
sContactId = Me.lstHusbLast.Column(2)
‘ Convert ID to integer
iContactID = Int(sContactId)
DoCmd.OpenForm "ClientServicesInput", , , WhereCondition:="Clientid =" & iContactID
Please see...