مشکل با "Insert Into" در VB

[gha310k]

سلام

من می خوام با استفاده از دستور " Insert Into" در برنامه ای که به زبان VB 6 هست ، اطلاعات موجود در چند Text رو به بانک اضافه کنم

دستور رو به شکل زیر می نویسم

s = "insert into TForush (CFName,CLName,CCode) values (text7.Text,text8.Text,text9.Text )"

اجرا میشه اما در بانک ثبت نمیشه

لطفا راهنمایی کنید

[M.T.P]

s = "insert into TForush (CFName,CLName,CCode) values (" & Text7.Text & "," & Text8.Text & "," & Text9.Text & ")"

[gha310k]

باز هم به جدول اضافه نکرد

البته من در قسمت Form-Load برای اتصال برنامه به بانک از کد زیر استفاده کردم ، اینکار درسته یا نه

Con.CursorLocation = adUseClient
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db97.mdb;Persist Security Info=False;Persist Security Info=False"
Rs.Open "select * from TForush", Con, adOpenStatic, adLockOptimistic

[gha310k]

لطفا رهنمایی کنید

[M.T.P]

دوست عزیز این کد هم تست کن اگه اضافه نکرد مشکل از جای دیگست باید تیکه ای از برنامه رو ضمیمه کنید:


s = "insert into TForush (CFName,CLName,CCode) values ('" & Text7.Text & "','" & Text8.Text & "','" & Text9.Text & "')"

[gha310k]

دوست عزیز این کد هم تست کن اگه اضافه نکرد مشکل از جای دیگست باید تیکه ای از برنامه رو ضمیمه کنید:


s = "insert into TForush (CFName,CLName,CCode) values ('" & Text7.Text & "','" & Text8.Text & "','" & Text9.Text & "')"


برای درست کار کردن کد، باید بجای "&" از علامت " + " استفاده کرد