کمک در کد نویسی

[alifnt]

سلام
من یه نرم افزار نوشتم که برای یک معلم هست. نمرات دانش آموزان در طی سال در کلاس های مخلف خود را وارد کرده محاسبات انجام میشود و یک نمره کلاسی محاسبه می شود.
توی کد نویسی دچار مشکل شدم لطفا کمک کنید
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dbase.mdb;"
Adodc1.RecordSource = "SELECT * FROM Moavenat"
Adodc1.Refresh
For Index = 1 To Adodc1.Recordset.RecordCount
Text1(Index).Text = Adodc1.Recordset.Fields("User")
Text2(Index).Text = Adodc1.Recordset.Fields("Main_Board")
Adodc1.Recordset.GetRows (1)
Next

End Sub

Private Sub Command1_Click()
For Index = 1 To Adodc1.Recordset.RecordCount
Adodc1.Recordset.Fields!User = Trim(Text1(Index).Text)
Adodc1.Recordset.Fields!Main_Board = Trim(Text2(Index).Text)
Adodc1.Recordset.GetRows (1)
Next
End Sub

با باز شدن فرم ، باید اطلاعات خوانده شده وارد تکس باکس ها شده و نمایش داده شود
و اگر اصلاحی داشت با کلیک بر روی Command1 ذخیره شود
حالا مشکل ایجاست که:
1- در for برای لود شدن صفحه روی Index = 0 کار نمیکنه و باید Index = 1 رو بزنم
2- بخش ذخیره اطلاعات کلا خطا میده

[vbhamed]

سلام
اين كد رو تست كنيد
البته براي قسمت ذخيره بهتر بود يك نمايي از فرمتون ميزاشتيد
Private Sub Form_Load()

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dbase.mdb;"
Adodc1.RecordSource = "SELECT * FROM Moavenat"
Adodc1.Refresh

With Adodc1.Recordset
While Not .EOF
Text1(Index) = !User & ""
Text2(Index) = !Main_Board & ""

.MoveNext
Index = Index + 1
Next
End With

End Sub

Private Sub Command1_Click()

With Adodc1.Recordset
.MoveFirst
While Not .EOF
!User = Trim(Text1(Index))
!Main_Board = Trim(Text2(Index))
.Update
Index = Index + 1
.MoveNext
Wend
Next

End Sub