Добрый день, у меня получилось подключиться к бд Access и получить первое значение из таблицы, подскажите пожалуйста как получить все значения таблицы mdb.

im Cn
im RS
Cn = CreateObject("ADODB.Connection"
RS = CreateObject("ADODB.Recordset"
Cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\kladr.mdb;"

Cn.Open()
RS.Open("SELECT * FROM Raion", Cn)
MsgBox(RS("Name".Value)
RS.Close()


Cn.Close()
Cn = Nothing
RS = Nothing