VB6でMySQL4.1に接続して
テーブル"table1"にレコードを追加したいんですけど
MySQLには接続できるんですけど、新しいレコードを
追加できません。
エラーメッセージは
　Unknown column 'ID'in'fieldlist'
とでます。

Dim SQL As String
Dim ID As Integer
Dim name As String
Dim cmd As ADODB.Command

Set cmd = New ADODB.Command
ID = Text1.Text
name = Text2.Text
SQL = "insert into table1(AID,Aname) values(ID,name) "

cmd.ActiveConnection = cn
cmd.CommandText = SQL
cmd.Execute