DataGrid.DataSource = Recordset - не работает - VB

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

На одно форме есть два компонента MSHFlexGrid и DataGrid MSHFlexGrid.DataSource = Recordset - работает DataGrid.DataSource = Recordset - не работает что не так

Решение задачи: «DataGrid.DataSource = Recordset - не работает»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private cn As ADODB.Connection
Private rs As ADODB.Recordset
 
Private Sub Form_Load()
 Set cn = New ADODB.Connection
 Set rs = New ADODB.Recordset
 cn.Open 'что-то'
 rs.CursorLocation = adUseClient
 rs.CursorType = adOpenForwardOnly
 sel = 'что-то'
 rs.Open sel, cn, 0, 1
 Set DataGrid1.DataSource = rs
End Sub
 
Private Sub Form_Terminate()
 Set DataGrid1.DataSource = Nothing
 rs.Close
 Set rs = Nothing
 cn.Close
 Set cn = Nothing
End Sub