codice:
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:
codice:
Rs.MoveFirst
For i = 0 To Rs.recordCount - 1
conta = conta + 1
text1.text = conta
text1.refresh
Rs.MoveNext
next i