以下代码查询到结果后，如何将姓名列自动作为列表框（ListBox1）项目？请指教。

...................（省略）

Case "今天生日员工"

                   nms = ""

                   For Each dr As DataRow In DataTables("基本信息").DataRows

                       Dim dt As Date = dr("出生日期")

                       If dt.Month = Date.Today.Month AndAlso dt.Day = Date.Today.Day Then

                            nms = nms & ",\'" & dr("工号") & "\'"

                            End If

                   Next

                   If nms = "" Then

                       MessageBox.Show("今天没有员工过生日")

                       Return

                   Else

                       nms = nms.Trim(",")

                       Tables("Table2").Filter = "[工号] In (" & nms &")"

            此处将姓名列自动作为列表框（ListBox1）项目...........

...................（省略）