超烦INSERT INTO语句，请大侠帮忙。

我想向表中插入数据，但有很多字段，我写了一条INSERT语句，但出错了，请各位帮忙修改一下，谢谢。另有没有更好的方法，请告诉我。

Dim txtInsert As String
Dim rstInsert As New ADODB.Recordset

Dim ValLid, ValDoctorID, ValDruggistID, ValFactory, ValPackge As String
Dim ValSpecs, ValFoemNo, ValPlace, ValProvider As String
Dim ValTradeMark, ValLicenceNo, ValFacies, ValPackgeQualty, ValVerdict, ValMemo As String
Dim ValEntryDate, ValValidDate, ValSpendDate As Date
Dim ValTotalCharge, ValPrice As Currency
Dim ValTotalAmount, ValTotalNice, ValNice, ValSToreAmount, ValStoreNice As Integer


txtInsert = "INSERT INTO LeechdomStock (LeechdomID,Factory,Entrydate,ValidDate," _
& "TotalCharge,TotalAmount,TotalNice,Nice,Price,StoreAmount,StoreNice," _
& "Packge,Specs,DoctorID,DruggistID,FormNO,Place,SpendDate,Provider," _
& "TradeMark,LicenceNo,Facies,PackgeQuality,Verdict,Memo)" _
& "VALUES('" & ValLid & "','" & ValFactory & "',#" & ValEntryDate & "#,#" _
& ValValidDate & "#," & ValTotalCharge & "," & ValTotalAmount & "," _
& ValNice & "," & ValTotalNice & "," & ValPrice & "," & ValSToreAmount & "," _
& ValStoreNice & ",'" & ValPackge & "','" & ValSpecs & "','" & ValDoctorID _
& "','" & ValDruggistID & "','" & ValFormno & "','" & ValPlace & "',#" _
& ValSpendDate & "#,'" & ValProvider & "','" & ValTradeMark & "','" _
& ValLicenceNo & "','" & ValFacies & "','" & ValPackgequality & "','" _
& ValVerdict & "','" & ValMemo & "')"


运行到此处时出错语句是“INSERT INTO 语法错误”
rstInsert.Open txtInsert, Cnn, adOpenStatic, adLockOptimistic