Transferring data from MSFlexGrid1 to fastreport

Private Sub F_QueryData(master_dataset As Object)
    ' Veri sorgulama rutini
    Dim oRs As New ADODB.Recordset
    Dim sSQL As String
    Dim stokKodu As String
    
    ' Stok kodunu al
    stokKodu = txtStokKodu.Text
    sSQL = "SELECT STOKKODU, MALINCINSI FROM F0100TBLSTOKLAR WHERE STOKKODU = '" & stokKodu & "'"
    
    ' Veritaban?na ba?lan ve sorguyu çal??t?r
    With oRs
        .CursorLocation = adUseClient
        .Open sSQL, oADOCon, adOpenForwardOnly, adLockReadOnly
        .ActiveConnection = Nothing
    End With
    MSFlexGrid1.Clear
    ' MSFlexGrid'i doldur
    MSFlexGrid1.Rows = 0 ' Ba?l?k sat?r?n? s?f?rlamak için
    MSFlexGrid1.AddItem "STOKKODU" & vbTab & "MALINCINSI" ' Ba?l?k sat?r?n? ekle
    Do Until oRs.EOF
        MSFlexGrid1.AddItem ""
        MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 0) = oRs.Fields("STOKKODU").Value
        MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 1) = oRs.Fields("MALINCINSI").Value
        oRs.MoveNext
    Loop
    
    ' Veritaban? ba?lant?s?n? kapat
   ' oRs.Close
    Set oRs = Nothing
    
    ' FastReport ile raporlama
    Call GenerateReport
End Sub
 
 
 
 
 
Private Sub GenerateReport()
Dim oRs As New ADODB.Recordset
Dim sSQL As String, stokKodu As String
stokKodu = txtStokKodu.Text
sSQL = "SELECT STOKKODU, MALINCINSI FROM F0100TBLSTOKLAR WHERE STOKKODU = '" & stokKodu & "'"
 
On Error GoTo ErrHandler
oRs.Open sSQL, oADOCon, adOpenStatic, adLockOptimistic
 
Dim Report As Object
Set Report = CreateObject("FastReport.TfrxReport")
 
' Hata kontrolü
If Report Is Nothing Then
MsgBox "FastReport nesnesi olu?turulamad?.", vbCritical
        Exit Sub
End If
 
Report.LoadReportFromFile ("C:\1\2\2\1.fr3")
  
' Hata kontrolü
If oRs.EOF And oRs.BOF Then
MsgBox "Recordset bo?.", vbCritical
oRs.Close
Set oRs = Nothing
Exit Sub
End If
 
Report.RegisterData oRs, "MyData"
 
Dim DataBand As Object
Set DataBand = Report.FindObject("Data") ' Data1 yerine kendi DataBand ad?n?z? koyun
If Not DataBand Is Nothing Then
DataBand.DataSource = Report.GetDataSource("MyData")
Else
MsgBox "DataBand bulunamad?.", vbCritical
Exit Sub
End If
 
Report.ShowReport
 
oRs.Close
Set oRs = Nothing
Exit Sub
 
ErrHandler:
MsgBox "Hata: " & Err.Description, vbCritical
If Not oRs Is Nothing Then
If oRs.State = adStateOpen Then oRs.Close
Set oRs = Nothing
End If
End Sub