عندما اريد عن اعرض محموعة من البيانات في datagrid بناء على اختيار يختاره المستخدم من combobox
فان المعلومات تظهر عند الضغط على الزر الذي يعرض البيانات ولكن ما تلبث ان تختفي المعلومات مباشرة بعد انتهاء الضغطة على الزر
فما هو السبب
وهذا هو الكود الموجود داخل الزر
Private Sub Command2_Click()
db.Provider = "Microsoft.Jet.OLEDB.4.0;"
db.Open "d:\School.mdb"
rs.Open "select * from students where sclass ='" + Combo1.Text + "'", db, adOpenKeyset, adLockOptimistic, adCmdText
db.CursorLocation = adUseClient
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
db.Close
End Sub
