Sql sorgu sonucunun datareport ile çıktı alınması

Private Sub Command4_Click()
Dim vt As ADODB.Connection
Set vt = New ADODB.Connection
    vt.ConnectionString = "DBQ=" & App.Path & "\vt.mdb;DefaultDir=" & App.Path & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;FILEDSN=;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"
    vt.Open
    Dim Bag As New ADODB.Recordset
    a = InputBox("Kalem Nosunu Giriniz")
    Set Bag = vt.Execute("Select * from kalemler where kalemno = '" & a & "'")
        With DataReport2
        .DataMember = vbNullString
        Set .DataSource = Bag
        .Caption = "İşte Sql Sorgu Çıktısı!" '
        With .Sections("Section1").Controls
            .Item("text1").DataField = Bag.Fields(0).Name
            .Item("text2").DataField = Bag.Fields(1).Name
            .Item("text3").DataField = Bag.Fields(2).Name
            .Item("text4").DataField = Bag.Fields(3).Name
            .Item("text5").DataField = Bag.Fields(4).Name
            
        End With
        .Sections("Section4").Controls.Item("tDate").Caption = Format(Now, "dddd, dd-mmmm-yyyy")
        DataReport2.WindowState = 2
        .Show
    End With
End Sub