Scusate si è aggiunta una difficoltà... dal form mi possono arrivare, come valori : 1-ABC oppure 2-Tutti

Se arriva 1-ABC ho impostato la condizione:
codice:
If campoform <> "" then
Dim Split
Split = split(campoform, "-")
campoform0 = Split(0)
campoform1 = Split(1)
  strSQL = strSQL & " AND campoform = "& campoform0 &" "
End if
ma se il valore che arriva dal form è 2-Tutti non estrae nessun record... dove sbaglio?