insert con adobd command

[Alethesnake]

qualcosa del tipo:

...
strSql = "insert into messaggi (primo, secondo, terso) values (?, ?, ?)"
with objCmd
    Set .ActiveConnection = objCon
    .CommandText = strSql
    .CommandType = adCmdText
    .parameters.append .createParameter(, adInteger, adParamInput)
    .parameters.append .createParameter(, adInteger, adParamInput)
    .parameters.append .createParameter(, adInteger, adParamInput)

    objCmd(0) = varPrimo
    objCmd(1) = varSecondo
    objCmd(2) = varTerso

    .Execute
end with
set objCmd = Nothing

io ho considerato che inserissi tre dati di tipo intero, questo poi devi vederlo tu nel createparameter