مشكل در سيو اطلاعات در بانك اطلاعاتي

[sinavb]

سلام من وقتي مي خوام اطلاعاتم رو در بانك سيو كنم
با اين ارور مواجه ميشم :
run tim error 91
object variable or with block variable not set

توي دستور دكمه سيومم از اين كد استفاده كردم :
If Text1.Text = "" And Text2.Text = "" And Text3.Text "" Then
MsgBox "áÝØÇ ÊãÇãí ÝíáÏ åÇ ÑÇ Ê˜ãíá äãÇííÏ ", vbOKOnly + vbExclamation, "˜ãÈæÏ ÇØáÇÚÇÊ"
Else
Adodc1.Recordset.AddNew <<< خط زرد روي اين دستور مياد
Adodc1.Recordset.Fields!nam = Text1
Adodc1.Recordset.Fields!cod = Text2
Adodc1.Recordset.Fields!tedad = Text3
Adodc1.Recordset.Update
MsgBox "ÚãáíÇÊ ÈÇ ãæÝÞíÊ ÐÎíÑå ÔÏ . ", vbOKOnly + vbInformation, "ÐÎíÑå ÔÏ"
Adodc1.Refresh
End If


توي form load :
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db.mdb;"
Adodc1.RecordSource = "SELECT * FROM anbar"

چه كار بايد بكنم اين مشكل از چيه ؟؟!!
خواهشا منو راهنمايي كنين
مرسي:لبخندساده::لبخندساده:

[akbarg64]

سلام.اون قدیما یادمه دستورات رو اینجوری وارد میکردیم.

Adodc1.RecordSource = "SELECT * FROM Anbar "
Adodc1.Refresh
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("nam") = Trim(Text1)
Adodc1.Recordset.Fields("cod ") = Val(Text2)
Adodc1.Recordset.Fields("Tedad ") = Val(Text3)
Adodc1.Recordset.Updateموفق باشید.

[sinavb]

سلام مرسی مشکلم حل شد ولی نمی دونم چرا حالا به دستور رفرش adodc گیر میده اونو چه کارش کنم:اشتباه: