[VB.NET] سؤال :- في تصميم الفورم - نسخة قابلة للطباعة

كود :

          Dim dr As SQLiteDataReader

            Dim cnn As New SQLiteConnection(String.Format("Data Source= {0}\settings\info{1}.s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), strcallbk))

            Dim cmdi As New SQLiteCommand(String.Format("SELECT * FROM info{0} ORDER BY id", strcallbk), cnn)

            cnn.Open()

            dr = cmdi.ExecuteReader()

            Do While dr.Read()



                DXde = dr("DXde").ToString

                Frequency = dr("Frequency").ToString

                DXStation = dr("DXStation").ToString

                Comments = dr("Comments").ToString

                Time = dr("Time").ToString

                Country = dr("Country").ToString

            Loop