VB6如何弹出列表选择对话框？

大家好，问个弹出对话框的问题！

  我有一个窗体，是用户输入数据的窗口，用户可以输入姓名，年龄等。我现在想实现个功能就是在这个窗体上增加个按钮，用户输入完 姓名后，点击这个按钮，会弹出一个子对话框（最好是模式的），对话框里面有个列表从数据库查询一个年龄的数据，例如查询access数据库后返回一个年龄的列表，例如 25，26，27，28.把这4个数据显示在弹出对话框上面，用户选择其中一个后，关闭弹出对话框。把刚才用户选择的数据（例如他选择了27）回显到父窗口的年龄input中。 这样应该如何实现？帮忙写下伪代码吧！？ 特别是：
1.点击按钮后弹出对话框，

2.然后查询数据库返回一个list,

3.然后得到用户在子对话框选择的年龄 

4.回填到父窗口的年龄字段中（是个Inputbox)，

多谢！！

这个难吗？