[VB] Ancora errore!!

[Francesco_76]

Meglio di cosi non riesco

Private Sub Form_Load()
Dim idText As String
Dim sqlstring As String
Dim Db As Database
Dim Rs As Recordset

If idText <> "0" Then
sqlstring = "select * from [Anagrafico Incarico] where ID like '*" & Replace(idText, "'", "''") & "*'"
Set Db = OpenDatabase("C:\Progetto Immobiliare\database.mdb")
Set Rs = Db.OpenRecordset(sqlstring)



Nome = (Rs!Nome)



End If
End Sub