dim cn as new ADODB.Connection
dim rs as new ADODB.Recorset
cn.CursorLocation = adUseClient
cn.Open "Provider=MSDAORA.1;Password=хххххх;User ID=ххххххх;Data Source=хххххх;Persist Security Info=True"
rs.Open "select …", cn, adOpenStatic, adLockBatchOptimistic
set Grid.DataSource = rs