数据录入，小问题，别笑

Question

Private Sub Command1_Click()
    dim conn as Connection
    dim rs as recordset
    dim name as string,number as string    Set conn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    conn.open "dsn=UserManage"
    Name = rkname.Text
    Number = rknumber.Text     sql = "insert into ruku(rukuthingname,rukuthingnumber) values('" & Name & "','" & Number & "')"
     conn.Execute sql
End Sub
End Sub

Answer 1

toantshome(星星我来了Private Sub Command1_Click()
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.open "dsn=UserManage"
Dim Name As String
Dim Number As StringName = rkname.Text
Number = rknumber.Textsql = "insert into ruku(rukuthingname,rukuthingnumber) values('"&Name&"','"&Number&"')"
conn.Execute sql
End Sub
这样写后报语法错，怎办

Answer 2

sql = "insert into ruku(rukuthingname,rukuthingnumber) values
                       |少空格