[mamas1]

في الحقيقة لديك عدة أخطاء
أولها أنك لم تفهم الأكواد .. وهذا واضح من خلال ما طرحته قبل قليل ..
ثانيا
لا نكتب

PHP كود :

Private Sub Form1_Load() 


بل

PHP كود :

Private Sub Form_Load() 


يعني ان الكود الذي وضعته

PHP كود :

Private Sub Form1_Load()

Dim x, y As Integer

Data1.Recordset.MoveFirst
Data1.Recordset.MoveLast
x = Data1.Recordset.RecordCount
ReDim student_quize(0 To x, 0 To 7) As String

y = 0
Do While Not Data1.Recordset.EOF

student_quize(y, 0) = Data1.Recordset.Fields(0)
student_quize(0, 1) = Data1.Recordset.Fields(1)
student_quize(0, 2) = Data1.Recordset.Fields(2)
student_quize(0, 3) = Data1.Recordset.Fields(3)
student_quize(0, 4) = Data1.Recordset.Fields(4)
student_quize(0, 5) = Data1.Recordset.Fields(5)
student_quize(0, 6) = Data1.Recordset.Fields(6)
student_quize(0, 7) = Data1.Recordset.Fields(7)
student_quize(0, 8) = Data1.Recordset.Fields(8)


y = y + 1
Data1.Recordset.MoveNext

Loop

End Sub 


لا نفع له في المثال الذي وضعته بل

PHP كود :

Private Sub Command1_Click()
Print vbNewLine
Do While Not Data1.Recordset.EOF
Print vbNewLine
Print Data1.Recordset.Fields(0), Data1.Recordset.Fields(1), Data1.Recordset.Fields(2), Data1.Recordset.Fields(3), Data1.Recordset.Fields(4), Data1.Recordset.Fields(5), Data1.Recordset.Fields(6), Data1.Recordset.Fields(7), Data1.Recordset.Fields(8)
Data1.Recordset.MoveNext

Loop



End Sub
Loop 


هو الذي يقوم بطباعة الجدول. سأقوم بالتفصيل لك لاحقا حتى تفهم المثال لتستطيع التقدم

---

طيب أعطين ما المطلوب و سأعمل عليه بعد ذلك أشرح لك تفاصيل الأكواد