ник: Gыwи
есть еще мой любимый метод:
открытие пустого rs с addnew
типа
sql="select * from tblSlugebnZapiska where 1=0"
rs.open sql, conn, 3, 3
rs.addnew
rs("BeginDate")=txtBeginDate
rs("EndDate")=txtEndDate
rs.update
rs.movefirst
newcode=rs("SlugebnZapiskaID")
rs.close
синтаксис может быть немного другой - rs.fields("SlugebnZapiskaID") yнапример ;)