impossibile trovare ISAM installabile

[1951cl]

Saluti a tutti
Ho seguito il corso su html VSB6 (applicazione agenda elettronica) ho seguito le altre post riguardanti l'argomento, ho installato anch'io il VS6sp6B (italiano) ma continuo ad avere questa noiosissima diagnostica. Cosa posso fare ???? per vere il programma funzionante??
Grazie
Ciao

[oregon]

Dipende da cosa usi e scrivi ...

[1951cl]

Uso VB6 e S.O. XP e sto cercando di completare 'lapplicazione proposta su questo stesso sito nella " Guida al Visual Basic " ed ho installato l'aggiornamento proposto aggiornare il Microsoft Jet Engine ed ho installato anche l'ultimo aggiornamenyto VB&. Prò quando invio mi dice che è impossibile trovate ISAM installabile .
allego il codice :

Private Sub Command2_Click()
If Command2.Caption = "Aggiungi" Then
'Attiva la funzione di aggiunta.
Data1.Recordset.AddNew
Command2.Caption = "Annulla"
Command6.Visible = True
Else
'Annulla le modifiche.
Data1.Recordset.CancelUpdate
Command6.Visible = False
Command2.Caption = "Aggiungi"
End If
End Sub

Private Sub Command4_Click()
Dim Risposta As Integer
'Chiede conferma prima di procedere con l'eliminazione.
Risposta = MsgBox("Eliminare i dati correnti?", vbQuestion + vbYesNo, Me.Caption)
If Risposta = vbYes Then
'Elimina i dati.
Data1.Recordset.Delete
'Si sposta nel record precedente.
Data1.Recordset.MovePrevious
End If
End Sub
Private Sub Command5_Click()
'Aggiorna il controllo.
Data1.Refresh
End Sub
Private Sub Command7_Click()
'Esce dal programma.
Unload Me
End Sub
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\Agenda.mdb"
End Sub
Private Sub Command3_Click()
If Command3.Caption = "Modifica" Then
'Attiva la funzione di modifica.
Data1.Recordset.Edit
Command3.Caption = "Annulla"
Command6.Visible = True
Else
'Annulla le modifiche.
Data1.Recordset.CancelUpdate
Command6.Visible = False
Command3.Caption = "Modifica"
End If
End Sub
Private Sub Command6_Click()
'Salva le modifiche.
Data1.Recordset.Update
Command6.Visible = False
Command2.Caption = "Aggiungi"
Command3.Caption = "Modifica"
End Sub
Private Sub Data1_Validate(Action As Integer, Save As Integer)
Dim Risposta As Integer
If Save = True Then
'E' stato modificato un contatto.
Risposta = MsgBox("Salvare le modifiche apportate?", vbQuestion + vbYesNo, Me.Caption)
If Risposta = vbNo Then
'Se si seleziona no, annulla le modifiche.
'Per questo, la proprietà DataChanged delle TextBox viene impostata su False.
Text1.DataChanged = False
Text2.DataChanged = False
Text3.DataChanged = False
Text4.DataChanged = False
End If
End If
'Nasconde il pulsante "Salva".
Command6.Visible = False
Command2.Caption = "Aggiungi"
Command3.Caption = "Modifica"
End Sub
Private Sub Command1_Click()
'Ricerca un nome all'interno dell'agenda.
Dim NomeDaCercare As String
NomeDaCercare = InputBox$("Immettere il nome da ricercare:", "Ricerca nell'agenda")
If NomeDaCercare <> "" Then
'Esegue la ricerca solo se è stato immesso un nome.
Data1.Recordset.Index = "Nome"
Data1.Recordset.Seek "=", NomeDaCercare
If Data1.Recordset.NoMatch Then
Data1.Recordset.MoveFirst
Data1.Refresh
'Il nome cercato non è stato trovato.
MsgBox "Nome non trovato.", vbInformation, Me.Caption
End If
End If
End Sub