vb如何通过adodc写数据到sql数据库

Question

vb如何通过ado写数据到sql数据库
下位机用udp发送数据到这个exe中，显示在文本框Text1.Text中，我想将这个数据写入sql数据库中，我使用了adodc部件来实现，另外还想使用DataGrid1来显示表的内容，表的名字为upload data，表一共有两列，一列是num，已经设为自动排序，另一列是data，我就是想把Text1.Text中的数据写入到data中。各位高手帮帮忙！小弟十分感谢。Private Sub add_cmd_Click()
    Dim sql As String
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset     Set cn = New ADODB.Connection
     Set rs = New ADODB.Recordset
  
     cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=sample;Data Source=NOVR"
     cn.Open     sql = "insert into upload data(data) values ('" & Trim(Text1.Text) & "')"
     cn.Execute sql
       
    MsgBox "记录添加成功", vbOKOnly + vbInformation, "提示"
    Text1.Text = "" cn.Close Set cn = NothingEnd Sub在点击这个命令按钮的时候，vb提示我错误在     cn.Execute sql，可是我 不知道怎么错了。请高手指教啊

Answer 1

表的名字为upload data,为什么有空格,应将空格去掉

Answer 2

我已经把表名改为 了 upload ，但是还是报这个错
不知道为什么，加上中括号也不行。

Answer 3

sql = "insert into upload([data]) values ('" & Trim(Text1.Text) & "')" 

Answer 4

sql = "insert into upload([data]) values ('" & Trim(Text1.Text) & "')"

Answer 5

Private Sub add_cmd_Click()
         sql = "insert into upload([data]) values ('" & Trim(Text1.Text) & "')"
     Adodc1.RecordSource = sql
     cn.Execute sql
       
    MsgBox "记录添加成功", vbOKOnly + vbInformation, "提示"
    Text1.Text = "" cn.Close Set cn = NothingEnd Sub这是我修改后的代码，现在vb报错是  对象变量或with块变量未设置停在cn.Execute sql这一句这是为什么呢？

Answer 6

用这一句
rs.Open "insert into upload (data) values ('" & Trim(Text1.Text) & "')" , cn, adOpenKeyset, adLockOptimistic