Sub OptionList(FieldName As String, Tbl As String, Col As String)

    Send ("Select " & FieldName & ": <SELECT NAME=""" & FieldName & """>")
    Set ds = db.OpenRecordset(Tbl, dbOpenDynaset)
    Do Until ds.EOF
        Send ("<OPTION>" & ds(Col))
        ds.MoveNext
    Loop
    ds.Close
    Send ("</SELECT>")

End Sub