[علوش]

لدي الفلكس جريد فيها 100 سطر اريد ان احفظ السطور الذي تحتوي على بيانات وقد جربيت الكود التالي فهل هي الطريقة الصحيحة ارجو الافادة
For aloop = 1 To grid.Row - 1
If rs.State = 1 Then rs.Close
rs.Open "save", DB, adOpenStatic, adLockPessimistic
rs.AddNew
rs![d1] = grid.TextMatrix(aloop, 1)
rs![d2] = grid.TextMatrix(aloop, 2)
rs![d3] = grid.TextMatrix(aloop, 3)
rs.Update
Next aloop


MsgBox "Êã ÍÝÙ ÈíÇäÇÊ ÇáÝÇÊæÑÉ ÈäÌÇÍ ", vbInformation, "ÍÝÙ"
For aloop = 1 To grid.Row - 1
grid.TextMatrix(aloop, 1) = ""
grid.TextMatrix(aloop, 2) = ""
grid.TextMatrix(aloop, 3) = ""
grid.TextMatrix(aloop, 4) = ""
grid.TextMatrix(aloop, 6) = ""
Next aloop



End If



ارجو الافادة اذا كانت الطريقة صحيحة او اذا كان توجد طريقة افضل من ذلك