主题：在出生日期列查询过生日的人

不会吧，我测试可以啊

Dim cmd As new SQlCommand
Dim dt As DataTable
cmd.CommandText = "Select * From {机关党支部} Where Month([出生日期]) = " & Date.Today.Month & " And Day([出生日期]) ="  & Date.Today.Day
dt = cmd.ExecuteReader
For Each dr As DataRow In dt.DataRows
    Output.Show(dr("姓名"))
Next