آپدیت دیتا گرید

[LEILAFATHI]

سلام بر همگی.

strsql = "delete from table1 where code=30"
Set db1 = OpenDatabase(App.Path + "\setayesh.mdb")
If Text1.Text <> "" And flag = True Then
cnn.ConnectionString = "provider=microsoft.jet.OLEDB.4.0;data Source=APP.PATH+\setayesh.mdb"
cnn.CursorLocation = adUseClient
cnn.Mode = adModeReadWrite
cnn.Open App.Path + "\setayesh.mdb"
rec.Open strsql, cnn, adOpenDynamic, adLockOptimistic, adCmdTable
db1.Execute strsql
cnn.Close
Set rec = Nothing
Set cnn = Nothing
Text1.Text = ""
strsql = "select * from table1"
cnn.ConnectionString = "provider=microsoft.jet.OLEDB.4.0;data Source=APP.PATH+\setayesh.mdb"
cnn.CursorLocation = adUseClient
cnn.Mode = adModeReadWrite
cnn.Open App.Path + "\setayesh.mdb"
rec.Open strsql, cnn, adOpenDynamic, adLockOptimistic, adCmdText
Adodc1.Recordset.Requery
Set DataGrid1.DataSource = rec
DataGrid1.Refresh
n = MsgBox(".åäÑÌæí ãæÑÏ äÙÑ ÇÒ ÈÇä˜ ÇØáÇÚÇÊí ÍÐÝ ÔÏ", vbOKOnly + vbInformation, "ÍÐÝ åäÑÌæ")
End If
End Sub


دوستان مشکل من اینه که بعد از دادهای رو از جدولم حذف کردم دیتاگرید آپدیت نمیشه چه کار کنم.