'fill coolsites control
Sub fillCoolsites()
Dim indexcoolsites As Integer = 2
fillData("select top " & indexcoolsites & " * from coolsites order by e_id desc", coolsites, "etlove.mdb")
End Sub

'fill diary control
Sub filldiary()
Dim diaryperpage As Integer = 5
fillData("select top " & diaryperpage & " * from diary order by d_id desc", diary, "etlove.mdb")
End Sub
'fill news control
Sub fillnews()
Dim indexnews As Integer = 5
fillData("select top " & indexnews & " * from news order by news_id desc", news,, "etlove.mdb")
End Sub

如上，news和diary都正常就coolsites警告没有声明，同样的方式news和diary就可以而coolsites就不行，怎么办？