grazie cik, mi sembrava assurdo infatti dovermi creare una connessione al database....
Ora funziona alla grande

codice:
Dim zona As New ADODB.Recordset


Private Sub Combo14_Click()

Set zona = Nothing
zona.Open "zona", CurrentProject.Connection, 1, 1

Do While Not zona.EOF
   If Combo14.Text = zona(1) Then
      Exit Do
   End If
   zona.MoveNext
Loop

Me.Filter = "id = " & zona(0)
Me.FilterOn = True

End Sub