请你们帮我看看我的错在哪里了？？
Dim strcn,cn
Dim is_sql,rscom
Dim ttt

Set ttt=HMIRuntime.Tags(radius).read

Set cn=CreateObject("ADODB.Connection")
Set rscom=CreateObject("ADODB.Recordset")
strcn="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=guolu;Data Source=song\WINCC;"
cn.Connectionstring=strcn
cn.open
is_sql="insert into note Values('robert'," & ttt & ");"
cn.Execute is_sql
cn.close

End Sub