Set DataGrid.DataSource = RecordSet на моей машине (с VB) работает на чистых - нет

Формулировка задачи:

работаю с ADO Set MSHFlexGrid.DataSource = RecordSet работает Set DataGrid.DataSource = RecordSet на моей машине (с VB) работает на чистых нет В форуме уже говорилось что нужен MDAC поставил 2.7 никаких изменений ошибок нет но и данных в Gride нет

Решение задачи: «Set DataGrid.DataSource = RecordSet на моей машине (с VB) работает на чистых - нет»

textual
                            Листинг программы 
                        

                            Dim rs1 As Recordset
Set rs1 = New ADODB.Recordset
rs1.ActiveConnection = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=init.mdb;Persist Security Info=False'
rs1.CursorLocation = adUseClient
rs1.Open 'sch_ssh', , , , adCmdTable
Set Adodc1.Recordset = rs1
Set DataGrid7.DataSource = rs1
Set MSHFlexGrid7.DataSource = rs1
                        