With mfgResult
.FixedCols = 0
.FixedRows = 1
.Rows = mrc.RecordCount
.Cols = mrc.Fields.Count
.TextMatrix(0, 0) = "姓名"
.TextMatrix(0, 1) = "性别"
.TextMatrix(0, 2) = "生日"
.TextMatrix(0, 3) = "电话"
.TextMatrix(0, 4) = "联系地址"
End With
mrc.MoveFirst

For i = 1 To mrc.RecordCount - 1
mfgResult.TextMatrix(i, 0) = mrc.Fields(0)
mfgResult.TextMatrix(i, 1) = mrc.Fields(1)
mfgResult.TextMatrix(i, 2) = mrc.Fields(5)
mfgResult.TextMatrix(i, 3) = mrc.Fields(3)
mfgResult.TextMatrix(i, 4) = mrc.Fields(8)
mrc.MoveNext
If mrc.EOF = True Then
Exit For
End If
Next
数据库里本来有5个记录的，可是用上面这段代码却只能显示出前4个记录，最后一个记录显示不出来，请会的帮我解答一下哦，谢谢大家了~

With mfgResult
.FixedCols = 0
.FixedRows = 1
.Rows = mrc.RecordCount + 1
.Cols = mrc.Fields.Count
.TextMatrix(0, 0) = "姓名"
.TextMatrix(0, 1) = "性别"
.TextMatrix(0, 2) = "生日"
.TextMatrix(0, 3) = "电话"
.TextMatrix(0, 4) = "联系地址"
End With
mrc.MoveFirst

For i = 1 To mrc.RecordCount
mfgResult.TextMatrix(i, 0) = mrc.Fields(0)
mfgResult.TextMatrix(i, 1) = mrc.Fields(1)
mfgResult.TextMatrix(i, 2) = mrc.Fields(5)
mfgResult.TextMatrix(i, 3) = mrc.Fields(3)
mfgResult.TextMatrix(i, 4) = mrc.Fields(8)
mrc.MoveNext
If mrc.EOF = True Then
Exit For
End If
Next
我改了这两句后就可以正常显示了，为什么要这样改啊？我也是试了很多次才试出来这样改的

第0行不记数，
从第一行开始。