Fatto, aperto con NotePad:

Ecco come è il dialogo per la scrittura file:


'salva POLIZZA
Set DBPOLIZZA = VBDB.OpenTable("POLIZZA")
DBPOLIZZA.Index = "PRIMARYKEY"
DBPOLIZZA.Seek "=", numero.Text, scadrata.Text
If DBPOLIZZA.NoMatch Then
' inserimento
DBPOLIZZA.AddNew 'crea una riga di record bianco

DBPOLIZZA("numero") = numero.Text
DBPOLIZZA("RAMO") = Trim(ramo.Text) & " "
DBPOLIZZA("CONTRAENTE") = Trim(contraente.Text) & " "
DBPOLIZZA("SCADRATA") = scadrata.Text
DBPOLIZZA("SCADCONTR") = scadcontr.Text
DBPOLIZZA("premio") = CDbl(premio.Text)
DBPOLIZZA("CLIENTE") = CLISW
DBPOLIZZA.Update 'inserisce

Else
' modifica
DBPOLIZZA.Edit

DBPOLIZZA("numero") = numero.Text
DBPOLIZZA("RAMO") = Trim(ramo.Text) & " "
DBPOLIZZA("CONTRAENTE") = Trim(contraente.Text) & " "
DBPOLIZZA("SCADRATA") = scadrata.Text
DBPOLIZZA("SCADCONTR") = scadcontr.Text
DBPOLIZZA("premio") = CDbl(premio.Text)
DBPOLIZZA("CLIENTE") = CLISW
DBPOLIZZA.Update 'inserisce


End If

Si fa ancora così con VB6?