用模块连接数据库的问题

Question

Public cnn As New ADODB.Connection
Public cmm As New ADODB.Command
Public rs As New ADODB.Recordset
Public strcnn As StringPublic Sub main()
strcnn = "Provider=sqloledb;Data Source=(local);Initial Catalog=hotel;Integrated Security=SSPI"
cnn.Open strcnnEnd SubPrivate Sub Command1_Click()
Dim sql As Stringsql = "insert into test1 (t1) values( '" & Text1(0).Text & "')"
Set rs = cnn.Execute("sql")

Answer 1

conn.excute(sql)不加引号就可以了‘-------------------
顺便说下，好怪异的结帖率

Answer 2

sql = "insert into test1 (t1) values( '" & Text1(0).Text & "')" 
cnn.execute sql

Answer 3

我有一个，绝对可用：
http://download.csdn.net/source/1498324

Answer 4

不是啊,上面的是一个类,下面的FORM1的 Command1,我照着各位说的把引号去掉,
Dim sql As String
On Error GoTo er
sql = "insert into test1 (t1) values( '" & Text1(0).Text & "')"
 cnn.Execute (sql)
er:
  MsgBox Err.Description
提示"对像关闭时,不可以操作"