穿过屋顶的highkick1:vb select报错问题

我使用select查询生成表格，但一运行总是报错显示“from子语句出错”
然后出“实时错误 1-2147217900（80040e14） 对象”refresh“的方法‘iadodc’失败
具体语句如下
Private Sub Command1_Click()
If Combo1.Text = "白班" Then
Adodc1.RecordSource = "select * form 数据记录 where 数据记录.时间 between d1.text & 08：00：00 and d1.text&16：00：00 "
Adodc1.Refresh

ElseIf Combo1.Text = "中班" Then
Adodc1.RecordSource = "select * form 数据记录 where 数据记录.时间 between d1.text&16：00：00 and d1.text&24：00：00 "
Adodc1.Refresh

ElseIf Combo1.Text = "夜班" Then
Adodc1.RecordSource = "select * form 数据记录 where 数据记录.时间 between d1.text&24：00：00 and d1.text&08：00：00 "
Adodc1.Refresh
End If
End Sub

Private Sub DTP1_Change()
D1.Text = DTP1.Value
End Sub

Private Sub Form_Load()
Combo1.AddItem "白班"

Combo1.AddItem "中班"

Combo1.AddItem "夜班"

End Sub
按您说的改完后
报：
实时错误 -2147467259（80004005） 对象”refresh“的方法‘iadodc’失败 ，还存在什么错误呢？