With
adoCommand
.ActiveConnection = adoConnection
.CommandText =
"INSERT INTO tblPerson (idAdresse, strNachname, strVorname, strTelefon, strMobil, strFax, strEmail) VALUES(?, ?, ?, ?, ?, ?, ?);"
.CommandType = adCmdText
.Parameters.Append .CreateParameter(, adInteger, adParamInput, , idAdresse)
.Parameters.Append .CreateParameter(, adVarChar, adParamInput, 25, strNachname)
.Parameters.Append .CreateParameter(, adVarChar, adParamInput, 15, strVorname)
.Parameters.Append .CreateParameter(, adVarChar, adParamInput, 15, strTelefon)
.Parameters.Append .CreateParameter(, adVarChar, adParamInput, 13, strMobil)
.Parameters.Append .CreateParameter(, adVarChar, adParamInput, 14, strFax)
.Parameters.Append .CreateParameter(, adVarChar, adParamInput, 60, strEmail)
.Execute
End
With