Ciao a tutti,

codice:
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.ActiveConnection = cn
    rec.LockType = adLockBatchOptimistic
    rec.Open "select * from link"

    
    id = rec.RecordCount

End Sub
perchè mi restituisce "-1"??

secondo voi va bene questo codice??

codice:
        Case "cerca"
                    
                On Local Error Resume Next
                myVar = Flsmovie.GetVariable("_root.cerca.search")
                rec.Filter = "autore like '*" & Replace(myVar, "'", "''") & "*'"
                
                If Not rec.EOF Then
                Do While Not rec.EOF
                
                    autore = (rec.Fields("autore"))
                    descrizione = (rec.Fields("descrizione"))
                    url = (rec.Fields("url"))
                    foto = (rec.Fields("foto"))
                    foto1024 = (rec.Fields("foto1024"))
                    tipo = (rec.Fields("tipo"))
                    
                rec.MoveNext
                
                Loop
                
                Else
                
                    MsgBox "Nessun record"
                    autore = "?"
                    descrizione = "?"
                    url = "?"
                    foto = "?"
                    
                End If
grazie mille