数据库错误：表达式类型错误

cd和name的数据类型是什么，获取到的cd和name又是什么 最好在name=Request("name")后面先输出response.write (cd) response.write (name) response.end()

另外连接数据库最好用jet4.0方式， 还有数据库字段 name为关键字，最好改一下

你最好先输出strsql

response.write strsql

response.end

set rs=server.CreateObject("ADODB.Recordset")

rs.open strsql,con_string,1,1

放在这个位置，测试SQL语句内容先。这样才好知道你的那个字段类型不对

调整一下代码

'.......

ElseIf IsNull(Trim(Me.Text6)) Then  '此行需要修改

'上句修改为下句

ElseIf not IsDate(Trim(Me!Text6)) Then  'Me后面使用叹号引用用户控件比用点号代码更健壮

MsgBox ("投资时间不得为空")   '此行需要修改,注意使用MsgBox()函数不太恰当

'上句修改为下句

MsgBox "投资时间必须是一个有效日期且不得为空"  '注意使用MsgBox语句更好

Exit Sub  '注意每个消息框后面要加这句

'........

With rs

!投资时间=Trim(Me.Text6) 

'上句修改为下句

!投资时间=CDate(Trim(Me!Text6))

'........

---