بناء استعلام

Dim AppPath As String
    '
    If Right$(App.Path, 1) <> "\" Then
        AppPath = App.Path & "\"
    Else
        AppPath = App.Path
    End If
    
    '
    With SmartyReport1
        .BackGroundColor = vbWhite
        .Font = "Aril"
        .FontBold = True
        .FontColor = vbBlack
        .FontItalic = False
        .FontSize = 10
        .FontUnderline = False
        .TabelCellColor = vbBlack
        .TableColor = vbWhite
        .TableDefinitionBackgroundColor = vbWhite
        .TextAlignment = ToCenter
    End With
    
    '
    With SmartyReport1
        .PictureIncluded = True
       ' .PicturePath = AppPath & "\img\zoo2.gif"
    End With
    
    '
    With SmartyReport1
        .PageHeader = "تقرير"
      End With
    
    '
    SmartyReport1.Summarized = True
    
    
    '
    SmartyReport1.DatabaseName = AppPath & "\dbstor.mdb"
    '
    SmartyReport1.SQLStatement = "select * from table1;"
    
    '
    SmartyReport1.ViewReport

عندي أداة التقرير المرفقه  لديكم وهذا الكود الخاص بعرض التقرير
أذا أرت عمل تقرير يطبع ناتج البحث فقط بمعنى المجموعة اتي لديها فقط جوال زي كذا  

Dim AppPath As String
    '
    If Right$(App.Path, 1) <> "\" Then
        AppPath = App.Path & "\"
    Else
        AppPath = App.Path
    End If
    
    '
    With SmartyReport1
        .BackGroundColor = vbWhite
        .Font = "Aril"
        .FontBold = True
        .FontColor = vbBlack
        .FontItalic = False
        .FontSize = 10
        .FontUnderline = False
        .TabelCellColor = vbBlack
        .TableColor = vbWhite
        .TableDefinitionBackgroundColor = vbWhite
        .TextAlignment = ToCenter
    End With
    
    '
    With SmartyReport1
        .PictureIncluded = True
       ' .PicturePath = AppPath & "\img\zoo2.gif"
    End With
    
    '
    With SmartyReport1
        .PageHeader = "تقرير"
      End With
    
    '
    SmartyReport1.Summarized = True
    
    
    '
    SmartyReport1.DatabaseName = AppPath & "\dbstor.mdb"
    '
    SmartyReport1.SQLStatement = "select * from table1 where typ = 'جوال';"
    
    '
    SmartyReport1.ViewReport

فهذا الكود أكي ولكن المشكلة أنه سيبقى دائما يظهر لي المجموعة التي لديها الجوالات فقط 
أذا أرت أن أعمل Inpbox
وأنا أدخل الشرط الذي الريد بناء البحث عليه فكيف 
زي ما يظهر في أستعلامات الاكسس عند طلب الاستعلام

SmartyReport.ocx