добавление записи в базу посредством Ado

Подскажите, пожалуйста, что я упустил - застрял вот на чем: нажатием кнопки добавляю в таблицу базы данных запись из шести полей. Выглядит это так:
Set DatabaseRecords = New ADODB.Connection 'соединение с базой данных
strConnect = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=Teacher"
DatabaseRecords.Open strConnect 'открываем базу по псевдониму
SQLString = "SELECT * FROM Вопрос WHERE код_темы=4" 'строка SQL-запроса
Set SQLResults = New ADODB.Recordset
SQLResults.Open SQLString, DatabaseRecords, adOpenDynamic, adLockOptimistic
SQLResults!Вопрос = QuestionData
SQLResults!Ответ_№1 = Answer1Data
SQLResults!Ответ_№2 = Answer2Data
SQLResults!Ответ_№3 = Answer3Data
SQLResults!Ответ_№4 = Answer4Data
SQLResults!Ответ_№5 = Answer5Data
SQLResults.AddNew
DatabaseRecords.Close

Фокус в том, что запись-то добавляется, но при вводе последующей записи я стираю только что введенную и заменяю ее на новую. Что здесь не так?