Dim i As Integer
  Dim m As String
  m = Format(MonthView1.Value, "yyyy/mm/dd")
  Dim objRecordset As ADODB.Recordset
  strSQL = "select * from kaoqing where 职工号= '" & Trim(txtFields(2).Text) & "' and 日期='" & m & "'"
  Set objRecordset = ExecuteSQL(strSQL)
  If objRecordset.EOF = True Then
  MsgBox " 没有该员工这个时间的考勤！", vbExclamation + vbOKOnly, "警告"
  Exit Sub
  Else
  For i = 0 To 16
                If IsNull(objRecordset.Fields(i)) Then
                 
                txtFields(i).Text = ""
                Else
 
               
                   Me.txtFields(i).Text = objRecordset.Fields(i)
            End If
                Next
  End If

这段代码哪里错，报错的原因说是数据类型不匹配。求解，谢谢