一个关于存储过程的有关问题

一个关于存储过程的问题
Dim   objrs   As   New   ADODB.Recordset

  '添加字段名称

For   lCount   =   0   To   adoPrimaryRS.Fields.Count   -   1

  objrs.Fields.Append   adoPrimaryRS.Fields(lCount).Name,   adVarChar,   adoPrimaryRS.Fields(lCount).DefinedSize

  Next

  '打开记录集

objrs.Open

  '将指定记录数循环添加到objrs中
 

  For   lCount   =   1   To   nPageSize
If   adoPrimaryRS.EOF   Or   adoPrimaryRS.BOF   Then
Exit   For
Else
  objrs.AddNew

  objrs!姓名   =   adoPrimaryRS!姓名

  objrs!密码   =   adoPrimaryRS!密码

  adoPrimaryRS.MoveNext
End   If
  Next

当数据库中有空纪录的时候，就会在  
“objrs.AddNew

  objrs!姓名   =   adoPrimaryRS!姓名

  objrs!密码   =   adoPrimaryRS!密码”

  adoPrimaryRS.MoveNext
报错，有没有办法让空纪录也可以传到新的记录集当中呢？麻烦各位多多帮忙了。

------解决方案--------------------
后面加上： & “”
adoPrimaryRS!姓名 & " "