If Not (mcrAppraiser.DataSource Is Nothing) Then
Set mcrAppraiser.DataSource = Nothing
End If
If rsResult.State <> adStateClosed Then
rsResult.Close
End If
On Error GoTo 0
'按照查询字符串打开查询
rsResult.CursorLocation = adUseClient
rsResult.Open strSQL, cnnStudents
If Not rsResult.EOF Then
On Error Resume Next
Set mcrAppraiser.DataSource = rsResult
On Error GoTo 0
End If