ذخیره متنی در Access

[mj-alijani]

سلام میخام یه برنامه ای بنویسم که مثلا طرف تو textbox ی چیزی بنویسه بعد تو فایل access ذخیره بشه خودم این کد رو نوشتم هیچ ارروری هم نمیده اما ذخیره نمیشه !!!

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Dim db As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\basic.mdb")
Dim dd As New OleDbCommand("insert into student ([fname]) values (' " + TextBox1.Text + " ')", db)
db.Open()
dd.ExecuteNonQuery()
MsgBox("saved")
db.Close()

[systam]

سلام
من معمولا اینطوری عمل میکنم
Dim con As OleDbConnection = New OleDbConnection
con.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=|datadirectory|\karim.mdb;user id=; password=;"

Dim command As OleDbCommand = New OleDbCommand
command.Connection = con
command.CommandText = "insert into k values (@id ,@name,@family,@code_m)"
command.Parameters.AddWithValue("id", Trim(TextBox1.Text))
con.Open()
command.ExecuteNonQuery()
con.Close()
حالا با کد چک کن ببین کجاش مشکل داره
موفق باشی

یا علی