Dim rs As New ADODB.Recordset

Option Explicit
Private Sub Form_Load()

Dim cn, rs, cmd, i
Set rs = CreateObject("ADODB.RecordSet")
Set cn = CreateObject("ADODB.Connection")

cn.Open "Provider=LCPI.IBProvider.3;" & _
        "Data Source=localhost:c:\1\NEKROBASE.fdb; " & _
        "User Id=SYSDBA;" & _
        "password=masterkey;" & _
        "ctype=win1251;" & _
        "auto_commit=true"

rs.CursorLocation = adUseClient
Set rs = cn.Execute("select * from GODS")
Set DataGrid1.DataSource = rs

'j = 10
'Do While Not rs.EOF
'
'  For i = 0 To 7
'   MSFlexGrid1.TextArray(j) = rs(i).Value
'   j = j + 1
'   Next i
'rs.MoveNext
'j = j + 1
'MSFlexGrid1.AddItem ""
'Loop

End Sub

Option Explicit

Private Sub Form_Load()

Dim cmd, i
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

cn.Open "Provider=LCPI.IBProvider.3;" & _
        "Data Source=localhost:c:\1\NEKROBASE.fdb; " & _
        "User Id=SYSDBA;" & _
        "password=masterkey;" & _
        "ctype=win1251;" & _
        "auto_commit=true"

rs.CursorLocation = adUseClient
rs.CursorType = adOpenDynamic
rs.LockType = adLockOptimistic

rs.Open "select * from GODS", cn
Set DataGrid1.DataSource = rs
rs.Close
rs.Open "select * from POST", cn
Set DataGrid2.DataSource = rs

rs.Close
rs.Open "select * from POST", cn
Set DataGrid2.DataSource = rs

Dim rs,rs1 As New ADODB.Recordset

Dim rs As New ADODB.Recordset,rs1 As New ADODB.Recordset

.Open

DataGrid1.DataSource.AddNew