Private Function Esegui(ByVal Mioval As Integer)
Dim cn As ADODB.Connection
Dim rs As New ADODB.Recordset
Dim NomeTabella As String

NomeTabella = "Anagrafica"

Set cn = CurrentProject.Connection

rs.Open NomeTabella, cn, 1
rs.Filter = "[ID]=" & Mioval

If rs.RecordCount = 0 Then
'docmd.runmacro "Nome della macro"
Else
MsgBox "Il valore c'era"
End If

cn.Close
rs.Close
End Function

Private Sub BtEsegui_Click() 'pulsante sul form
Dim valore As Integer

valore = InputBox("Inserisci un valore ...")

Esegui (valore)
End Sub