OK . I make an app that have an ActX EXe with this code

Code:
Public Function AdoSelect(Sqlstring As String, Con As String) As Recordset
    FrmMAin.Show
    FrmMAin.Text1 = FrmMAin.Text1 & Sqlstring & vbNewLine

    Dim MyTable As New ADODB.Recordset
    MyTable.CursorType = adOpenKeyset
    MyTable.LockType = adLockReadOnly
    MyTable.Open Sqlstring, Con, , adLockReadOnly, adModeRead
    Set AdoSelect = MyTable

End Function
in the Class Module.




In my App i do this



Code:
    Dim NewAdo As Object
    Set NewAdo = CreateObject("Adamus.Data", "192.168.34")
    Set NewRecordset= NewAdo.AdoSelect(SqlString, Con)
    Exit Function
.

1) Is going very slowly when i try to execute some reocords (20-30)
2) It dosenot work with Datagrid,Datalist,DataCombo ???????

Thnks