插入数据

Question

Private Sub Form_Load()
Set con = New ADODB.Connection
st = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=商品销售管理表;Data Source=127.0.0.1"con.ConnectionString = st
con.Open
con.CursorLocation = adUseClient
End SubPrivate Sub Command3_Click()
Dim a As String
a = Text1.Text
con.Execute "insert into 表1(fd,fe) values(text1.text,text2.text)"
End Sub
text1、text2为文本框。 报错：此上下文不允许使用text，
该如何将文本框的数据插入表中？谢谢

Answer 1

con.Execute "insert into 表1(fd,fe) values('"& text1.text &"','"& text2.text &"')"

Answer 2

如果字段fd为数值型,fe为日期型，文本框的值该如何转换

Answer 3

cint(text1.text)
cdate(text2.text)