Ciao a tutti,

perchè anche cosi mi dà errore "nessun Record Corrente"

codice:
Option Explicit
Public db As Database
Public rs As Recordset




Private Sub Form_Load()

Set db = OpenDatabase(App.Path & "\database.mdb")
Set rs = db.OpenRecordset("select * from [Anagrafico Incarico] where ID like '*" & Replace(idText, "'", "''") & "*'")
Text.Text = rs!Nome

rs.Close
End Sub
ma il database è pieno di record!!!

Premetto che idText arriva perfettamente

Grazie mille