检查text1.text有没有单引号 ' 。 如果有的话是不行的。
还有就是字段长度，text1.text 超过sql定义的长度，也不行。:)

sql="INSERT INTO t1 (name) values('"& text1.text &"')"
直接这样当然不成

Set myADO = New ADODB.Connection
myADO.Open "dsn=  ;uid=  ;pwd=  ;database= "

myADO.Execute"INSERT INTO t1 (name) values('"& text1.text &"')"

1.很可能就是单引号的问题
插入之前要用replace函数把所有单个单引号换成两个连续的单引号就可以正确的写入数据库了
2.如果name字段不能为空而text为空字符串也会出错
3.有可能是该字段的名字是数据库的保留字，这样也会出错，我就遇到过，我曾把一个字段命名为order，结果使用的时候就出错了。兄弟，把字段的名字改一下试试

编译通过又不是运行通不过,
仔细DEBUG一下,
看看你的SQL在执行前到底变成了什么

编译通不过的错误提示信息是什么？

我想应该是： sql="INSERT INTO t1(name) values('" & text1.text & "')"