مشكلة فى ملء الفلكس جريد بالبيانات

السلام عليكم ورحمة الله وبركاتة

عندى مشكلة عند ربط msflxGraid  بقاعدة بيانات sql server2000  عن طريق الكود الموجود ادناة الحقول بتبدا من أول الصفر وانا عاوز يكون موجود FixedCols ممكن التعديل على الكود  هو أجراء draw flex

Private Sub DrawFlex()
Dim R As Integer
With MSFGrid1
.Clear
.AllowUserResizing = flexResizeColumns


تحديد عدد الاعمدة يساوى عدد الحقول '

.Cols = Rs.Fields.Count

تحديد عدد الاسطر يساوى عدد السجلات +1 لان السطر الاول سيستخدم لعناوين الاعمدة'
.Rows = Rs.RecordCount + 1


لكتابة عناوين الاعمدة '

.Row = 0

For R = 0 To .Cols - 1
.Col = R
.Text = Rs.Fields®.Name
Next R



ملء الاسطر بالمعلومات من قاعدة البيانات '

Rs.MoveFirst
.Row = 0
Do Until Rs.EOF
.Row = .Row + 1
For R = 0 To .Cols - 1
.Col = R
A = Rs.Fields®.Value
A = IIf(IsNull(A), "", A)
.Text = A
Next R
Rs.MoveNext
Loop
End With
End Sub
[/table]