Уважаемый форум,

Не могу понять, почему рекордсет открывается пустым, хотя в таблице 100% есть записи:

Dim db As New ADODB.Connection, rs As New ADODB.Recordset
Dim case_range_submit As String

Set db = CurrentProject.Connection
rs.Open ("SELECT Case_from, Case_to From Case_ranges ORDER BY Case_from"), db, adOpenDynamic, adLockOptimistic
If rs.RecordCount > 0 Then
    rs.MoveFirst
    Do Until rs.EOF
        case_range_submit = rs.Fields("Case_from").Value & "-" & rs.Fields("Case_to").Value & ","
        rs.MoveNext
    Loop
    case_range_submit = Left(case_range_submit, Len(case_range_submit) - 1)
End If
rs.Close

Debug.Print case_range_submit

При пошаговом выполнении rs.RecordCount =-1, т.е. пустой рекордсет. Не могу понять, почему?

http://www.sql.ru/forum/1281795/rekordset-otkryvaetsya-pustoy-hotya-est-zapisi-v-tablice