[vb6] inputbox per le date

[krico]

ho la seguente sub:

Public Sub cmdrpdata_Click()
    Dim data
    data = InputBox("inserisci la data per la ricerca", _
                    "PROTOMAGIC - ricerca per data")
    objposta.rs.Close
    objposta.apri_rs_1parDATA "protocolli", "data", data
    Set Adodc1.Recordset = objposta.rs
    DataGrid1.Refresh
End Sub

se premo annulla mi da errore di run-time 13.

in più non funziona con tutte le date come se inserire 12/05/2003 fosse differente di 11/06/2003 in termini di formato.