如何把text1.text作为日期存入access数据库？

Question

多谢各位大虾。下面的程序调试，总显示INSERT INTO语法错误
除日期外，所有access fields都是文本。
我用val（dtpicker1)来存入access是否有错？
如何把text1.text作为日期存入access数据库？
Private Sub Command1_Click()
Dim sql As String
Dim rst As ADODB.Recordset
Dim con As New ADODB.Connection
Dim j As Integer        Set con = New ADODB.Connection
       con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=CustInfo9797.mdb;Persist Security Info=False"
       con.CursorLocation = adUseClient
       con.Open
       Set rst = con.Execute("select * from CustInfo")
       j = rst.RecordCount
        If Text2.Text = "" Then
        i = MsgBox("这是必填字段！", vbOKCancel, "警告")
            If i = 1 Then
                Text2.SetFocus
            Else
                Me.Hide
            End If
        Else
     j = j + 1
       
     con.Execute ("insert into CustomerInfo (user,RecdDate,Com,legalRep,Kwd,BusiNature,MktBrd,Credit,Bank,Account,TaxNo,Country,Province,City,Add,Zip,Profile,Contact,Gender, Title,Mobile,Tel,Fax,Email,Web)" _
& " select '" & CStr(j) & "','" & Trim(Text24.Text) & "','" & (DTPicker1.Value) & "','" & Trim(Text2.Text) & "','" & Trim(Text3.Text) & "','" & Trim(Text4.Text) & "','" & Trim(Text6.Text) & "','" & Trim(Text7.Text) & "','" & Trim(Combo2.Text) & "','" & Trim(Text8.Text) & "','" & Trim(Text9.Text) & "','" & Trim(Text10.Text) & "','" & Trim(Text11.Text) & "','" & Trim(Text12.Text) & "','" & Trim(Text13.Text) & "','" & Trim(Text14.Text) & "','" & Trim(Text15.Text) & "','" & Trim(Text16.Text) & "','" & Trim(Text17.Text) & "','" & Trim(Combo1.Text) & "','" & Trim(Text18.Text) & "','" & Trim(Text19.Text) & "','" & Trim(Text20.Text) & "','" & Trim(Text21.Text) & "','" & Trim(Text22.Text) & "','" & Trim(Text23.Text) & "'")
   
   
           MsgBox "数据添加成功！", vbOKOnly, "恭喜！"
        End Ifend sub

Answer 1

"insert into tablename(ddate) values(# "& 日期变量 & " # ")

Answer 2

con.Execute ("insert into CustomerInfo (user,RecdDate)" _
& " select '" & CStr(j) & "','" & Trim(Text24.Text) & "','" & (DTPicker1.Value) & "','")??ORcon.Execute ("insert into CustomerInfo (user,RecdDate)" _
& " select '" & CStr(j) & "','" & Trim(Text24.Text) & "','" & VAL(text1.text) & "','")??
 如果保存时，我想把以前的记录覆盖，只存当前一个记录，应怎么做？

Answer 3

DTPICKER1.VALUE
YOU'D BETTER NOT USE TEXT1.BOX,USE DTPICKER IS MUCH BETTER
YOU HAV TO FORMAT TEXTBOX BEFORE INSERT IT[user],RecdDate,[Com],legalRep,Kwd,BusiNature,MktBrd,[Credit],[Bank],[Account],TaxNo,[Country],[Province],City,[Add],Zip,Profile,Contact,Gender, Title,Mobile,Tel,Fax,Email,[Web]RESERVED WORD SHOULD HAVE[]