كيف أحمل محتويات الحقول فيflexgrid؟؟؟

أخواني انا كتبت هذا الكود ولكن لايظهر أي شىء

 </P> 
db.Provider = "microsoft.jet.oledb.4.0"
db.Open App.Path & "\database.mdb"
sql = "select * from doctors "
rs.Open sql, db, adOpenDynamic, adLockOptimistic</P> 

With Me</P> 
.MSFlexGrid1.Cols = rs.Fields.Count</P> 

.MSFlexGrid1.TextMatrix(0, 0) = "ID"
.MSFlexGrid1.TextMatrix(0, 1) = "Name"
.MSFlexGrid1.TextMatrix(0, 2) = "Specialization"
.MSFlexGrid1.TextMatrix(0, 3) = "Gender"</P> 
For i = 1 To rs.RecordCount 'Row'
For y = 0 To 3 'column'</P> 
.MSFlexGrid1.TextMatrix(i, y) = rs![ID_doctor]
.MSFlexGrid1.TextMatrix(i, y) = rs![Name]
.MSFlexGrid1.TextMatrix(i, y) = rs![specialization]
.MSFlexGrid1.TextMatrix(i, y) = rs![Gender]
.MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1   ' for adding row every record'
Next y
Next i</P> 

End With</P>

اعذروني اخواني

d

b.Provider = "microsoft.jet.oledb.4.0"
db.Open App.Path & "\database.mdb"
sql = "select * from doctors "
rs.Open sql, db, adOpenDynamic, adLockOptimistic


With Me

.MSFlexGrid1.Cols = rs.Fields.Count


.MSFlexGrid1.TextMatrix(0, 0) = "ID"
.MSFlexGrid1.TextMatrix(0, 1) = "Name"
.MSFlexGrid1.TextMatrix(0, 2) = "Specialization"
.MSFlexGrid1.TextMatrix(0, 3) = "Gender"

For i = 1 To rs.RecordCount 'Row'
For y = 0 To 3 'column'

.MSFlexGrid1.TextMatrix(i, y) = rs![ID_doctor]
.MSFlexGrid1.TextMatrix(i, y) = rs![Name]
.MSFlexGrid1.TextMatrix(i, y) = rs![specialization]
.MSFlexGrid1.TextMatrix(i, y) = rs![Gender]
.MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1   ' for adding row every record'
Next y
Next i


End With