vb6 - オブジェクト変数が設定されていません (エラー 91)

Question

ADODB.RECORDSET に問題があります。データで満たされた flgFact という MSFlexGrid があり、rsDetal というレコードセットに関連するデータを追加したいのですが、コードをコンパイルするとドロップします (エラー 91: オブジェクト変数またはブロック変数付き)レートはありません）の場合

Private Sub cmdeport_Click()
    Dim rsDetal As ADODB.Recordset
    Set rsDetal = flgFact.DataSource
    If Not (rsDetal.EOF And rsDetal.BOF) Then
           rsDetal.MoveFirst
           Do While Not rsDetal.EOF
           Numdocu = rsDetal(4)
           Fec_Emision = rsDetal(5)
           Totl = rsDetal(16)
           Igve = rsDetal(17)
           Totv = rsDetal(18)
           Mont_Pade = rsDetal(14)
           Mont_Paco = rsDetal(15)
           Call TEMPTRAMA(Numdocu, Fec_Em, Totl, Igve, Totv, Mont_Pade, Mont_Paco)
           rsDetal.MoveNext
           Loop
    End If
End Sub

値 rsDetal を確認しましたが、MSFlexGrid から取得した値は Nothing です