[VB6] split particolare

[beppenet]

ok ma come faccio a farlo qui:

Day()

Set txtGgDataEmis.DataSource = rs
txtGgDataEmis.DataField = Split(data_emis, "/")