طلب كود - اظهار قيم جدول او استعلام في مربع تحرير وسرد - مرفق الكود

السلام عليكم

لدي مربع تحرير وسرد اريد اظهار قيم جدول او استعلام بواسطة كود VB

Dim strSQL As String
Dim i As Integer
Set db = CurrentDb

If Me.Type = 1 Then
strSQL = "SELECT class1.class  FROM class1;"

Me.class = ãÇ ÇÓã ÇáãÊÛíÑ
End If