[Ado] recupero num recordset (era:[VB6] help!!)

[ladyBlu]

allora prova così:

Option Explicit
Dim cn As New ADODB.Connection
Dim rec As New ADODB.Recordset
Dim id As Long

Private Sub Form_Load()

  cn.ConnectionString = "provider = Microsoft.Jet.OLEDB.4.0;" & _
                      "data source =" & App.Path & "\database.mdb;"
  cn.Open

  rec.Open "select * from link",cn,1,3
  rec.MoveFirst

  id = rec.RecordCount

End Sub

:master:...fammi sapere...