Dim WithEvents Rs As ADODB.Recordset
Private Sub Cn_ConnectComplete(ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pConnection As ADODB.Connection)
Rs1.ActiveConnection = Cn
Rs1.Source = "IR61BHED IR Header" ' имя таблицы, к котрой
End Sub ' подключаюсь
Private Sub Form_Load()
Set Cn = New ADODB.Connection
Set Rs = New ADODB.Recordset
Cn.ConnectionString = "Provider=MSDASQL.1; Persist Security Info=False;Data Source=sam_all_demo32"
End Sub
Вот такой вот код. Это лучше чем ADODC- контрол, но с серваком все равно работает дико медленно. Склоняюсь к мысли, что на VB, используя его библиотеки и контролы, быстрее все равно не получится

А может кто знает, как ускорить процесс (в таблице надо обновлять поля). Пробовали свойство Rs.Filter, но по времени получается то же самое, если не медленне.
И вот еще вопрос ведь по идее, в Rs.Source можно вставить SQL-запрос. Но драйвер ODBC ругается и не хочет его обрабатывать. Подскажите работающий синтаксис (SQL запроса)а?

В общем как сделать быстрее?
