Estas en el tema de Pasar de Listbox a DataList en el foro de Programación General en Foros del Web. como paso esta instrucción de listbox a datalist:
tabla = List1.List(List1.ListIndex) (muestra el nombre de las tablas)
sql = "SELECT nombre FROM " & tabla
...