Hola q tal
Bueno creoq estas trabajdno con acces, dime si kierews cambiar el campo disponibilidad supongo q ya t deben haber inseñado a guardar campos en BD, si es el caso lo unico q tienes q hcaer es un "update a tu tabla sobre ese campo" para q lo actualize naa mas, ese seria la soulcion para el 1.
Ahora el Nº 2.
Lo unico q tienes q hacer tu mis codigo aumentando un lo q esta entre comillas q io e puesto obvio q colocas los campo q tu requieres.
Do
cmb_vehiculos.AddItem tabla_rentacar(""select modelo campo from tabla where campon=si")
tabla_rentacar.MoveNext
Loop While Not tabla_rentacar.EOF
base_rentacar.Close
Bueno creo q eso es todo no me olvido naa.
Saludos!!!!!!!!!!!!!!!!!!!!!