s = "?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?"
[COLOR="Blue"]For[/COLOR] x = 0 [COLOR="Blue"]to[/COLOR] y
sA(0) = R(x).Name: sA(0).Replace("'", "ʻ")
sA(1) = R(x).Code: sA(2) = R(x).Info
[COLOR="Green"]'More field to fill here...[/COLOR]
DB.ExecNonQuery2("INSERT INTO Table VALUES(" & s &)", sA)
[COLOR="Blue"]Next[/COLOR]