خطا new keyword هنگام اضافه کردن از تکسباکس

[yasinmh]

با سلام
يه database توي خود دات نت ساختم متغير هاي زير را معرفي کردم يه دکمه براي اضافه شدن ساختم که از تکس باکس متن رو به ديتا گريد و يا بانک اضافه کنه.ولي خطا ميدهد...
imports system data
imports system data.sqlclient
dim cn as new sqlconnection
dim dataA as new sqldataAdapter
dim dset as new dataset
(...)Private Sub BtnInsert_Click
dataA.InsertCommand.CommandText = "INSERT INTO Test(id,name) VALUES(" & "'" & TextBox1.Text & "','" & TextBox2.Text & "')"
dataA.InsertCommand.ExecuteNonQuery()
end sub
پس از نوشتن توي تکس و کليک خطاي زير رو ميده:
use a new keyword to creat an object instant
با تشکر:...

[moradidn]

...
dataA.InsertCommand = New SqlCommand() ' and set connection
dataA.InsertCommand.CommandText = "INSERT INTO Test(id,name) VALUES(" & "'" & TextBox1.Text & "','" & TextBox2.Text & "')"
...