При запуске формы описываю: переменные заданы в модуле
strCnn = "Provider=SQLOLEDB.1;" & _
           "Integrated Security=SSPI;" & _
           "Persist Security Info=False;" & _
           "Initial Catalog=MVD;Data Source=server1"
  Set Db = New ADODB.Connection
  Db.Open strCnn
  Set rsDb = New ADODB.Recordset
  rsDb.CursorType = adOpenDynamic
  rsDb.LockType = adLockBatchOptimistic
  rsDb.Supports adAddNew = True
 
  rsDb.Open "basedata", Db

Затем :
rsDb.AddNew
присваиваю значения
Программа выдаетошибку приновом добавлении  данных
Помогите моей голове разобраться с этим случаем

А ты писал после этого rsDb.Update ?