添加数据的菜鸟问题，在线等

Question

页面中只有一个输入框和一个按键，我需要把点击按键将数据库中的数据保存入数据，代码如下，放在command_click()下，请大侠们，看看有什么问题
   Dim conn As ADODB.Connection
   Dim rs As ADODB.Recordset
   Dim ConnectString, sqlStr As String
   
   ConnectString = "driver={SQL Server};server=LY-WS-LINUXWIN;uid=sa;pwd=××××;database=TimeCard"   Set conn = New ADODB.Connection
   conn.Open ConnectString
   
   Set rs = New ADODB.Recordset
   sqlStr = "select * from timecard"
   rs.Open sqlStr, conn, 1, 1
   
   rs.AddNew
   rs(SUR_ID) = Trim(Text1.Text)
   rs.Update
   
   rs.Close
   Set rs = Nothing

Answer 1

rs.open"insert into timecard(sur_id) values('"&text1.text&"')"

Answer 2

Dim conn As ADODB.Connection
   Dim rs As ADODB.Recordset
   Dim ConnectString, sqlStr As String
   
   ConnectString = "driver={SQL Server};server=LY-WS-LINUXWIN;uid=sa;pwd=××××;database=TimeCard"   Set conn = New ADODB.Connection
   conn.Open ConnectString
   
   Set rs = New ADODB.Recordset
   sqlStr = "select * from timecard"
   rs.Open sqlStr, conn, 1, 1
   
   rs.AddNew
   rs！SUR_ID= Trim(Text1.Text)
   rs.Update
   
   rs.Close
   Set rs = Nothing
可以了吗？