
PROGRAMMING IN VISUAL BASIC WITH MS ACCESS 2000 411
9. MsgBox “No Record Found”, vbInformation, “Student”
10. RST.Close
11. Exit Sub ‘ EXIT FROM SUBROUTINE
12. End If
13. Do While Not RST.EOF = True
14. MSFlexGrid1.AddItem RST!Id & Chr(9) & RST!Name & Chr(9) &
RST!AGE & Chr(9) & RST!STD_CLASS & Chr(9) & RST!ADMISSION_DATE
& Chr(9) & RST!FATHER_MONTHLY_INCOME
15. RST.MoveNext
16. Loop
17. RST.Close
End Sub
Private Sub Command2_Click()
1. MSFlexGrid1.Clear
2. MSFlexGrid1.Rows = 1
3. MSFlexGrid1.Cols = 6
4. MSFlexGrid1.FormatString = “Id |Student Name |Age |Class
|Admission Date |Father Monthly Income”
‘MAKE AN OBJECT OF THE VARIABLE ...