Dim rst_C As ADODB.Recordset
Set rst_C = New ADODB.Recordset
rst_C.Open "SELECT DISCONT_TBL.*" _
& " From DISCONT_TBL " _
& " ORDER BY DISCONT_TBL.ID_DISCONT;", GLB_CONNECTION, adOpenKeyset, adLockOptimistic
If rst_C.RecordCount <> 0 Then
rst_C.Sort = "ID_DISCONT" -здесь вылетает по ошибке
Do While Not rst_C.EOF
|