Dim a(1 To 200) As String, b As Long, c As Long'定义变量Private Sub C1_Click()'C1的单击事件b = Val(T1.Text) '将b变量转为数值型。Adodc1.RecordSource = "select * from 生词 where 日期=d" '利用Adodc1控件select查询生词表中的所有内容,条件为where 日期=d",其中where 日期=d"这句错了,是因为日期是日期型数据,在语句中,日期型数据要使用"#"符号表示,即应该改为Adodc1.RecordSource = "select * from 生词 where ...