ＳＱＬの代入について

お世話になります。
下記の記述がエラーになってしまいます。
「ＮＹ」の辺りがおかしいのですが、どう記述したら良いのか
ご教示頂きたく宜しくお願い致します。

　　　　　　　　記

mySQL = "INSERT INTO ZAIKO(ID, HINBAN, HINMEI, QTY, DATE) " & _
　　　　"VALUES ('"NY" &"'" & objForm.GetField("品番") & "'" & _
　　,' & objForm.GetField("品番") & "'" & _
　　, & CLng(objForm.GetField("数量")) & _
　　,' & Date & " " & Time & "')"

No.3 ベストアンサー 回答者： chibita_papa 回答日時： 2009/03/03 09:47

これでどうでしょうか。

mySQL = "INSERT INTO ZAIKO(ID, HINBAN, HINMEI, QTY, DATE) " & _
"VALUES ('NY','" & objForm.GetField("品番") & "'," & _
"'" & objForm.GetField("品番") & "'," & _
CLng(objForm.GetField("数量")) & "," & _
"'" & Date & " " & Time & "')"

ID ===> 'NY'
HINBAN ===> '" & objForm.GetField("品番") & "'
HINMEI ===> '" & objForm.GetField("品番") & "'
QTY ===> CLng(objForm.GetField("数量"))
DATE = '" & Date & " " & Time & "'

HINBANとHINMEIが同じなのは気になりますが

No.2 回答者： riveron77 回答日時： 2009/03/03 09:15

> "VALUES ('"NY" &"'" & objForm.GetField("品番") & "'" & _

#1さんがおっしゃるとおりですね…
"NY"って変数でしょうか？それとも文字列？…といったところが伝わりにくいですね…

それから
> ,' & objForm.GetField("品番") & "'" & _
…の最初の「,'」って""で囲ってあげないといけないんじゃ…

いづれにしても、変数「mySQL」にINSERT文を入れて(多分その後で)実行しようとしているのかな、と。一度クエリアナライザとかで実行可能なINSERT文を作成して、それを変数に入れるようプログラムを編集…といった作業をされた方がよろしいかと。

No.1 回答者： nora1962 回答日時： 2009/03/03 02:01

> "VALUES ('"NY"

NYが変数だとしても前後の文字列と結合がされていません。
そもそも、この言語は何ですか？
VB?バージョンは?