'Используя DataSource
Dim rs as ADODB.recordset

Public sub OpenOnNewRecord
  set rs= new ADODB.Recordset
'Нам не надо фетчить записи из таблицы, поэтому открываем на несуществующей записи 
  rs.Open "Select * FROM tblUnit Where ID = -1", conn, adOpenStatic, adLockBatchOptimistic
  rs.AddNew  '"ID", x  ' Это - если значение первичного ключа известно заранее
'Если используется счетчик в качестве первичного ключа, придется чуть хитрее
  rs.UpdateButch
  rs.Resinq
  Set txt1.DataSource = rs
  Set txtXX.DataSource = rs  'все контролы - так же
end sub

private sub btnOK_Click()
  Sendkeys "+{Tab}"  'Чтобы значение из последнего измененного текстбокса попало в рекордсет
'(не помню, отработает ли Validate при получении фокуса кнопкой)
  Sendkeys "{Tab}"
  rs.UpdateButch
end sub

'Используя BindingCollection
Dim rs as ADODB.recordset
dim bnd1 as BindingCollection

Public sub OpenOnNewRecord
  set rs= new ADODB.Recordset
  rs.Open "Select * FROM tblUnit Where ID = -1", conn, adOpenStatic, adLockBatchOptimistic
'Нам не надо фетчить записи из таблицы, поэтому открываем на несуществующей записи 
  rs.AddNew  '"ID", x  ' Это - если значение первичного ключа известно заранее
'Если используется счетчик в качестве первичного ключа, придется чуть хитрее
  rs.UpdateButch
  rs.Resinq
  Set bnd1.DataSource = rs
  bnd1.Add txt1, "Text", "ПолеРекодсета"
  bnd1.Add txtXXX, "Text", "ПолеРекодсетаXXX"
end sub

private sub btnOK_Click()
  Sendkeys "+{Tab}"  'Чтобы значение из последнего измененного текстбокса попало в рекордсет 
'(не помню, отработает ли Validate при получении фокуса кнопкой)
  Sendkeys "{Tab}"
  rs.UpdateButch
end sub