dim bookingid as integer

lstbookingid = bookingid
'lstbookingid is a listbox

select bookingdate from booking where bookingid = bookingid