Con il gruppo di istruzioni
Lun=InStr(1,DataCommand1("DATA_M")," ")
DataMan=Left(DataCommand1("DATA_M"),Lun - 1)
If IsDate(DataMan) Then ....
memorizzi nella variabile Lun la posizione dello spazio vuoto nella stringa contenuta in DataCommand1("DATA_M") a partire dal suo inizio, poi memorizzi in DataMan la sottostringa esistente a sinistra di quella posizione in DataCommand1("DATA_M").
Infine, se quella sottostringa è una data .... (la usi come valore da passare per il campo DATA_ESPOSIZIONE del form, che è una lista dei valori contenuti in DataCommand1("DATA_M"))

Se, come sembra dall'esempio che fai, DataCommand1("DATA_M") non contiene spazi vuoti, Lun vale 0 e a sinistra di questa posizione, in DataCommand1("DATA_M") non c'è nulla........ma, in tal caso, il browser dovrebbe restituirti un messaggio di errore.

Se, invece, DataMan è valorizzata, la lista viene popolata solo nel caso che il contenuto di DataMan sia una data.....controlla che il server, per le sue impostazioni, la riconosca come tale.