Datagrid: non vengono viasualizzati tutti i record (era: Proprieta' Datagrid)

[anatroccolo]

Private Sub Form_Load() 
Dim Cn As New ADODB.Connection 
Dim Rs As New ADODB.Recordset 
Cn.CursorLocation = adUseClient 
Cn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=c:\inetpub\wwwroot\soanew\imprese.mdb" 
Rs.Open "Select * from imprese", Cn, adOpenStatic, adLockOptimistic 
Set DataGrid1.DataSource = Rs 
End Sub

Prova a fare un interazione per verificare il numero totale dei records estratti dalla stringa SQL creando un text sul form:

Rs.MoveFirst
For i = 0 To Rs.recordCount - 1
conta = conta + 1
text1.text = conta
text1.refresh
Rs.MoveNext
next i