مالناقص في كود الاضافه

السلام عليكم،

كود الاضافه في القاعده شغال ميه ميه في حالة كون اسماء الجداول لايحتوي على سبيس.

في حالة كونه يحتوي على سبيس يظهر لي خطأ في تكوين جمله الانزرت...

لاادري ماذا يفترض مني تعديله في الكود وارجو منكم مساعدتي

Dim i As Integer

Dim dsNewRow As DataRow

sql = "SELECT * FROM " & "[" & ComboBox1.SelectedValue & "]"

da = New OleDb.OleDbDataAdapter(sql, con)

da.Fill(ds, "Temp_table")

Dim cmdBuilder As New OleDb.OleDbCommandBuilder(da)

dsNewRow = ds.Tables(0).NewRow

dsNewRow.Item("SubType") = TextBox2.Text

Try

ds.Tables(0).Rows.Add(dsNewRow)

da.InsertCommand = cmdBuilder.GetInsertCommand()

da.Update(ds, "Temp_table")

Done.Visible = True

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

اسم الجدول يؤخذ من لسته يختار منها اليوزر الجدول المراد الاضافه فيه.

ويدخل القيمه المضافه في التكست الى العمود SubType