Set RS = New ADODB.Recordset
        RS.Open "select * from Tbl_OtherSend where Indatetime>='" & Format(Trim(DTP_sdate), "yyyy-mm-dd") & "' and  Indatetime<='" & DateAdd("d", 1, Format(Trim(DTP_edate), "yyyy-mm-dd")) & "' and BaoUser='" & Trim(Txt_baoname) & "'  ", con, adOpenKeyset, adLockReadOnly
一直都可以的,今天突然就这样了,
adOpenForwardOnly
0adOpenKeyset
adOpenDynamic
adOpenStatic       这几种游标都试了,还是一样。