又一问题！

Question

怎么 Data1.Recordset.RecordCount的值没法附给n程序如下：Private Sub Form_Load()
    Dim sBuffer As String
    Dim lSize As Long, n As Integer, i As Integer
    Me.Data1.DatabaseName = App.Path & "\订单资料.MDB"
    Me.Data1.RecordSource = " SELECT * FROM  单位信息"
    Me.Data1.Refresh
    If Data1.Recordset.RecordCount = 0 Then
       Data1.Recordset.AddNew
       Data1.Recordset.Update
    End If
    Data1.Recordset.MoveFirst
    If Data1.Recordset("注册标记") = False Then
       frm单位信息.Show 1
       Me.Data1.Refresh
       Me.Data1.Recordset.MoveFirst
    End If
    Data1.Refresh
    n = Data1.Recordset.RecordCount
     Data1.Refresh
    ReDim hxfpiclj(n) As String, hxftplj(n) As String, hxfcjyhm(n) As String, _
    hxfcjyhkl(n) As String
    hxfpiclj(1) = Data1.Recordset("图编目录")
    hxftplj(1) = Data1.Recordset("图形目录")
    hxfcjyhm(1) = Data1.Recordset("超级用户名")
    hxfcjyhkl(1) = Data1.Recordset("超级用户口令")
    'txtUserName.Text = hxfcjyhm
    If Not Data1.Recordset.EOF Then
    Data1.Recordset.MoveNext
    For i = 2 To n
    hxfpiclj(i) = Data1.Recordset("图编目录")
    hxftplj(i) = Data1.Recordset("图形目录")
    hxfcjyhm(i) = Data1.Recordset("超级用户名")
    hxfcjyhkl(i) = Data1.Recordset("超级用户口令")
    Next i
    Else
    Data1.Recordset.MoveFirst
    
    End If
End Sub

Answer 1

循环中没有记录集的movenext,所有总指向第一条.