下面的VB/SQL句哪错了？

For i = 1 To .Rows - 1
  For j = 4 To MSFlexGrid4.Cols - 1
  Rs.Open "select 姓名 from 值班信息表 where 值班日期 =" & CDate(MSFlexGrid4.TextMatrix(i, 0)) & "and 值班类型 ='" & MSFlexGrid4.TextMatrix(i, 3) & "'and 值班级别 ='" & MSFlexGrid4.TextMatrix(0, j) & "'"
  If Rs.RecordCount <> 0 Then
  MSFlexGrid4.TextMatrix(i, j) = Rs.Fields(0)
   
  ElseIf Rs.RecordCount = 0 Then
  MSFlexGrid4.TextMatrix(i, j) = Str(Rs.RecordCount)
   
  End If
  Rs.Close
  Next j
  Next i

入学考试？

两具and前面应该要有空格吧.