dim i,j
sql = "select * from domainname"
   conn.CursorLocation = adUseClient
   rs.Open sql, conn, adOpenKeyset, adLockOptimistic
For i = 1 To rs.RecordCount
            MSFlexGrid1.TextMatrix(i, 0) = i
            For j = 0 To rs.Fields.Count - 1
                Dim x As Integer
                'x = j - 1
                If IsNull(rs.Fields(j)) = True Then
                     MSFlexGrid1.TextMatrix(i, j) = ""
                Else
                     MSFlexGrid1.TextMatrix(i, j) = rs.Fields(j)
                End If
               
            Next
            rs.MoveNext
        Next
为什么是从第45条记录开始显示,显示完最后再从第1条记录显示到44条呢?
为什么不是第一条记录开始显示..
另外问下我设的主键值是自动编号的,如果删除了中间一条数据,为什么这个编号就不会自动补上去了啊,而是空在那的..
有没有办法解决这一问题,让它永远都是连续的..

我昨天也这样  不过我改成这样就不会了
Dim i, j, a, b As Long
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.connectionstring = "provider=Microsoft.Jet.oledb.4.0;" & "data source=数据库.mdb" + ";Jet OLEDB:Database Password=bishi"

conn.Open connectionstring
strsql = "select * from 货品信息表" ' where 货品编号='" & Text1.Text & "'"
rs.Open strsql, conn, adOpenStatic, adLockReadOnly
i = rs.RecordCount
j = rs.Fields.Count - 1
MSFlexGrid1.Rows = i + 1
MSFlexGrid1.Cols = j + 1
For a = 1 To i
  For b = 0 To j
MSFlexGrid1.TextMatrix(1 + i - a, b) = rs.Fields(b)
Next
  rs.MoveNext
Next

删除一条记录后，数据库只是对他做了个删除的标记，显示的时候不显示而已，并没有真正的删除，我也在思考怎么解决

看你的回复还是没明白是哪个地方的原因,请指点..