求助！

[tianzailai]

Dim sql As String
Dim rs As New ADODB.Recordset
Dim stdtime As String 'ʹµÃÔÚwin2000ÓëXPÖÐʱ¼ä¸ñʽ¼æÈÝ
stdtime = Format(dayinBkDTP.Value, "yyyy-mm-dd")
sql = "select * from borrowinfo where borrowDate = '" & stdtime & "'"
Set rs = TransactSQL(sql)
With dayinBookGrid
.Rows = 1
Do While Not rs.EOF
.Rows = .Rows + 1
.TextMatrix(.Rows - 1, 0) = rs.Fields(0)
.TextMatrix(.Rows - 1, 1) = rs.Fields(1)
.TextMatrix(.Rows - 1, 2) = rs.Fields(2)
.TextMatrix(.Rows - 1, 3) = rs.Fields(3)
.TextMatrix(.Rows - 1, 4) = rs.Fields(4)
.TextMatrix(.Rows - 1, 5) = rs.Fields(5)
.TextMatrix(.Rows - 1, 6) = rs.Fields(6)
.TextMatrix(.Rows - 1, 7) = rs.Fields(7)
.TextMatrix(.Rows - 1, 8) = rs.Fields(8)
.TextMatrix(.Rows - 1, 9) = rs.Fields(9)
.TextMatrix(.Rows - 1, 10) = rs.Fields(10)
.TextMatrix(.Rows - 1, 11) = rs.Fields(11)
rs.MoveNext
Loop

End With


运行后提示“查询错误：标准表达式中数据类型不匹配” 事实错误 3704 对象关闭时不允许操作

错误提示这一行代码：
Do While Not rs.EOF

[贝隆]

呵呵，这边也发了一贴啊？！已经在那边回答过了，去看吧。