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