字符串转日期变量的问题

Private Sub Command1_Click()
。
。
ReDim arrValues(1 To nums, 1 To 5)
For j = 1 To nums
arrValues(j, 1) = Adodc1.Recordset.Fields("operate_Date").Value   '例如 20110411 数据库中是文本型
。
。
。
arrValues(j, 5) = CDate(arrValues(j, 1))     '这一句错
Adodc1.Recordset.MoveNext
Next j                '定义动态数组，将datagrid中数据赋给二维数组