Ciao ragazzi ho un problemino.Nel mio progetto ho due Form, uno dove visualizzo i dati del database con una listview ed uno dove aggiungo i dati al mio database.Il problema è questo, quando aggiungo i dati dal secondo Form e poi chiudendolo richiamo il Form di Visualizzazione il record che ho aggiunto non viene visualizzato, per farlo devo uscire e poi rientrare.come posso fare aiutatemi vi prego Questo è il codice che ho usato per il Form di visualizzazione:

Private Sub Form_Load()
Dim itmX As ListItem
Dim DB As Database
Dim sQL As String
ListView1.ListItems.Clear
sQL = "select * from Rubrica where [DataChiusura] is null "

Set DB = OpenDatabase(App.Path & "\Agenda.mdb")
Set RS = DB.OpenRecordset(sQL)
Do Until RS.EOF
Set itmX = ListView1.ListItems.Add()

With RS
itmX.Text = .Fields("ID")
itmX.SubItems(1) = .Fields("O_F")
itmX.SubItems(2) = .Fields("Piano")
itmX.SubItems(3) = .Fields("Call_Center")
itmX.SubItems(4) = .Fields("Operatore_SIT")
itmX.SubItems(5) = .Fields("DataApertura")
itmX.SubItems(6) = .Fields("OraApertura")

RS.MoveNext
End With
Loop

End Sub
Questo è il codice che ho usato per il Form di aggiornamento:

Private Sub Command2_Click()

Dim DB As ADODB.Connection
Dim T As ADODB.Recordset
Dim strCnn As String
Set DB = New ADODB.Connection
strCnn = "" _
& "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & App.Path & "/Agenda.mdb"
' & "Persist Security Info=False"
DB.Open strCnn
Set T = New ADODB.Recordset
T.LockType = adLockOptimistic
T.Open "Rubrica", DB, , , adCmdTable
T.AddNew
T("O_F") = txtLast.Text
T("Piano") = txtTitle.Text
T("Call_Center") = txtDisp.Text
T("Operatore_SIT") = txtNick.Text
T("DataApertura") = txtEmail.Text
T("OraApertura") = DTPicker1.Value


T.Update
T.Close

DB.Close

Unload Me


Form1.Show


End Sub

Aiutatemi Grazie Mille!!!!!!!!!!!!!!