variable not defined

السلام عليكم

اخوتي الافاضل

الرجاء المساعدة , لا اعرف اين المشكلة عندما احاول فتح ملف قاعدة البيانات تظهر لي رسالة variable not defined مؤشرا على MSFlexGrid1

مع اني قمت باضافة Microsoft FlexGrid Control 6.0

من الـ Component

الكود المستخدم فيه الاداة

CommonDialog1.CancelError = True
    On Error GoTo CancelOpen
    CommonDialog1.Flags = cdlOFNHideReadOnly
    CommonDialog1.DialogTitle = "Open MDB file"
    CommonDialog1.Filter = "MDB Files|*.mdb|All Files|*.*"
    CommonDialog1.ShowOpen

    If CommonDialog1.FileName = "" Then
        Exit Sub
    Else
        strProvider = "Microsoft.Jet.OLEDB.3.51"
        strDataSource = CommonDialog1.FileName
        strSQL = "SELECT * FROM numbers"
        '
        cnn.Open "provider=" & strProvider & ";Data Source=" & _
        strDataSource
        rst.Open strSQL, cnn, adOpenStatic
        '
        Dim i, j
    'tell the grid how many columns to have
    MSFlexGrid1.Cols = rst.Fields.Count
    'tell the grid how many rows to have + 1
    MSFlexGrid1.Rows = rst.RecordCount + 1
    j = 0
    With rst
                Do While j < .Fields.Count
            If Not IsNull(.Fields(j).Name) Then
                MSFlexGrid1.TextMatrix(i, j) = .Fields(j).Name
            End If
            j = j + 1
        Loop
    End With
    With rst
        'move to the first record
        .MoveFirst
        i = 1
        Do While i <= .RecordCount
            j = 0

            Do While j < .Fields.Count
                If Not IsNull(.Fields(j).Value) Then
                    MSFlexGrid1.TextMatrix(i, j) = .Fields(j).Value
                End If
                j = j + 1
            Loop

            i = i + 1
        Loop
    End With

     End If
    '
    cnn.Close
    rst.Close
    '
CancelOpen:
   Exit Sub
     '
     
End Sub

و الـrst هي recordset

    Public cnn As New ADODB.Connection
    Public rst As New ADODB.Recordset