敲实例4遇到问题的思考，多一个new大有学问。

在内存中分配空间的时间和实例化的时间不同：

      对于Dim objRs as new RecordSet，当第一次使用objRs的时候，才在内存中分配空间和实例化。

    对于Dim objRs as RecordSet，声明objRs为RecordSet类类型变量，和声明普通变量一样，此时已经在内存中分配存储空间了。当使用Set objRs=new RecordSet时，才被实例化。

虽然这两种定义方式，在分配空间和实例化的时间上不同，但是有时却不影响结果；然而有时也会相差甚远。

    结果相同的情况:

    通常在窗体的通用声明段Dim objRs as new RecordSet，这和在窗体的通用声明段用Dim objRs as RecordSet，并且在Form_Load事件中用Set objRs=new RecordSet，得到的记录集以及之后对记录集做相应的处理，结果都是相同的。

Dim objRs As New Recordset, objCn As New Connection, intPage As Integer

和

Dim objRs As Recordset

Private Sub Form_Load()
'在窗体事件中实例化objRs
Set objRs=New Recordset

    当在Click事件中，操作objRs，结果都是相同的（假设objRs是已经打开的游标）

'使当前记录的位置为下一条记录的位置
Private Sub cmdNext_Click()
    objRs.MoveNext
  If objRs.EOF Then objRs.MoveLast
End Sub

结果不同的情况:

当Set objRs=new RecordSet这条语句放在允许被重复调用的过程中时，结果就会相差甚远。

 Dim objDataSource As New Recordset

定义在窗体各事件过程中使用的公用变量

Set objRs=new RecordSet出现在下面这个过程中，这个过程作用是把objRs（假设objRs是打开的记录集）的当前页写入objDataSource这个对象中，以便在DataGrid中显示。

Public Sub ShowData(ByVal intPage As Integer)
    '实现分页显示记录功能
    Dim intPageCount As Integer, intRecord As Integer
    Dim objDataSource As New Recordset
    '创建一个局部Recordset对象保存objRs当前记录页数据
    For intRecord = 0 To objRs.Fields.Count - 1
        objDataSource.Fields.Append objRs.Fields(intRecord).Name, _
                                    adVarChar, _
                                    objRs.Fields(intRecord).DefinedSize
    Next
    objDataSource.Open                  '打开局部Recordset对象
    objRs.PageSize = Val(txtPageSize)   '重新设置objRs每页显示的记录条数
    objRs.AbsolutePage = intPage        '重新设置objRs的当前记录页
    For intRecord = 1 To objRs.PageSize '将objRs当前记录页中数据写入objDataSource
        objDataSource.AddNew
        objDataSource!用户名 = objRs!用户名
        objDataSource!口令 = objRs!口令
        objDataSource!身份 = objRs!身份
        objRs.MoveNext
        If objRs.EOF Then Exit For
    Next
    Set DataGrid1.DataSource = objDataSource '将objDataSource设置为数据网格的数据源
    txtPageMsg = intPage & "/" & objRs.PageCount '刷新当前记录页信息
End Sub

 每执行一次这个过程，Set objRs=new RecordSet就产生一个对象，当再次执行这个过程时，又会新产生一个对象，并且把原有的对象覆盖掉。如果把这条语句换成在窗体通用声明段的Dim objRs as new RecordSet，则第二次调用这个过程时，就出错