主题：生日提醒设计

Dim Birth As Date
Dim BirthPl As Integer
For Each dr As DataRow In DataTables("客户信息").DataRows
   Birth = dr("出生日期")
If (birth.Month=Date.Today.Month)
  If (birth.Day=Date.Today.AddDays(1).Day)
BirthPl=BirthPl +1

End If
End If
Next

MessageBox.Show("生日"+str(BirthPl)+"人")