求助？求助？求助？VB.NET查询时间段出错！

http://download1.csdn.net/down3/20070618/18185745432.rarPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

 

Dim sqlstr As String
sqlstr = "select * from KC where Data between '2001-1-1' and '2000-5-1'"

Dim myda As OleDb.OleDbDataAdapter
myda = New OleDb.OleDbDataAdapter(sqlstr, OleDbConnection1)
DataSet11.Clear()
myda.Fill(DataSet11)
DataGrid1.DataSource = DataSet11.KC

End Sub
错误提示：未处理的“System.Data.OleDb.OleDbException”类型的异常出现在 system.data.dll 中。

源程序我已上传，那有大侠会啊，帮个忙，小弟不胜感激！