Hem / Tips & tricks
Dim rs As New ADODB.RecordsetDim vCount() As VariantDim lCount As Longrs.Open “SELECT * FROM Test”, “DSN=Test”, , , adCmdTextvCount() = rs.GetRows() ' detta hämtar antalet posterreccount = UBound(vCount, 2) + 1