Dim contact As List
contact.Initialize
Dim month As String=DateUtils.GetMonthName(DateTime.Now)
Dim rs As ResultSet = Connection.DB.ExecQuery("SELECT DOB,CONTACT FROM MEMBERSHIP,ACCOUNT WHERE ACCOUNT.USERNAME=MEMBERSHIP.ACCOUNT")
Do While rs.NextRow
If DateUtils.GetMonthName( rs.GetString("DOB"))=month Then
contact.Add(Array As String(rs.GetString("CONTACT")))
End If
Loop
rs.Close