SQL语法规范——Insert语句

需要插入的表的字段比较多的时候

Dim strSQL
Dim aSQL, bSQL

aSQL = aSQL & "Field1": bSQL = bSQL & "Value1"
aSQL = aSQL & ",Field2": bSQL = bSQL & ",Value2"
.
.
.
strSQL = ""
strSQL = strSQL & "insert into TableName("
strSQL = strSQL & aSQL
strSQL = strSQL & ") values("
strSQL = strSQL & bSQL & ")"

由此可保证一一对应.