پرینت با استفاده از ابزار ActiveReport 2

[mahdyeh]

سلام
وقت بخیر !

من یک Table در Sql دارم به اسم TblGar می خوام اطلاعات تمام رکورد های Table ام رو با کلیک cmdPrint در Form در Vb در >> ActiveReport پرینت شود ولی با کدی که من مینویسم فقط یک رکورد ( آخرین رکورد ) آن پرینت می شود کد ها رو چه شکلی بنویسم که درست اجرا بشن ؟ من در Active Report ، چهار تا Text آوردم بعدش دیگه نمدونم چکار باید بکنم ؟
کدی که من نوشتم این هست البته از روی کد هم معلوم هست که درست نیست میدونم ولی دیگه نمدونم درستش چی هست ؟




'--------------------------------------
Private Sub cmdPrint_Click()
cnn.ConnectionString = "Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=sa;Initial Catalog=Baths;Data Source=."
cnn.Open
With cmd
.ActiveConnection = cnn
.CommandText = "select * From TblGar "
.CommandType = adCmdText
End With
Set rec = cmd.Execute
While rec.EOF = False
ActiveReport1.txt1.Text = rec(0).Value
ActiveReport1.txt2.Text = rec(1).Value
ActiveReport1.txt3.Text = rec(2).Value
ActiveReport1.txt4.Text = rec(3).Value
rec.MoveNext
Wend
ActiveReport1.Show
End Sub
'--------------------------------------




پیشا پیش ممنونم

;