Database 从数据库禁用日历追溯日期中的选定日期

我想使用VB.net制作一个日历，当列

Date

02/06/2015重复三次时，该日历突出显示/禁用日期，然后禁用日历中的同一日期，如果少于三次，日历日期没有变化，则从数据库检索所有这些日期

_______________________________________________
ID  |     Name     |   IDNo    |     Date     |
-----------------------------------------------
 1  |     A        |  1235     |  02/06/2015  |
 3  |     B        |  1236     |  02/06/2015  |
 4  |     C        |  1237     |  02/06/2015  |
 5  |     D        |  1238     |  03/06/2015  |
 6  |     E        |  1239     |  03/06/2015  |
 7  |     F        |  1240     |  05/06/2015  |
 8  |     G        |  1241     |  05/06/2015  |

---

此代码仅禁用日历、、、中的第一个日期

Dim sql As String=“按日期>=2的日期从PersonalData组中选择（日期）”
Dim命令作为SqlCommand=新SqlCommand（sql，连接）
作为SqlDataReader=command.ExecuteReader（）的Dim读取器
如果是（reader.Read（）），则
如果（reader.HasRows）那么
而reader.Read（）
Calendar1.SelectedDates.Add（CType（reader.GetDateTime（0），Date））
Calendar1.SelectedDayStyle.BackColor=System.Drawing.Color.Red
nextdate=Calendar1.SelectedDate
如果nextdate=e.Day.Date，则
e、 Cell.Text=“--”
如果结束
结束时
如果结束
如果结束

欢迎使用SO。请阅读。您希望得到什么样的输出？