insert语句出错，请指教

cocopig

VBA中用使用insert语句：
   Dim cmd As ADODB.Command
     Set cmd = New ADODB.Command
     cmd.ActiveConnection = CurrentProject.Connection
     cmd.CommandText = "insert into QCSuggestionPaper (ProjectName,PaperDate) " _
                                & "values('"me.txtProjectName"','"me.txtInspectDate"')"

提示语法错误，如图，请教前辈们我的insert代码还缺了什么吗？-----------me.txtProjectName和me.txtInspectDate是窗体的文本框。

roych

me.txtProjectName和me.txtInspectDate是变量而不是文本，因此应该这样写：
cmd.CommandText = "insert into QCSuggestionPaper (ProjectName,PaperDate) " _
                                & "values('" & me.txtProjectName &"','"& me.txtInspectDate & "')"
此外，需要注意的是，如果me.txtInspectDate是日期格式的话，则是：
cmd.CommandText = "insert into QCSuggestionPaper (ProjectName,PaperDate) " _
                                & "values('" & me.txtProjectName &"',"#& me.txtInspectDate & "#)"

cocopig

roych 发表于 2012-7-26 21:25
me.txtProjectName和me.txtInspectDate是变量而不是文本，因此应该这样写：
cmd.CommandText = "insert  ...

测试有效，谢谢提点。