IDisposable.Dispose Method

[HanTechneut]

Ik heb de volgende code die blijkbaar niet goed wordt afgesloten. Wat er mis is weet ik niet. De fout wordt omschreven als:
Warning: Microsoft.Reliability : In method 'Form1.Updaten()', call System.IDisposable.Dispose on object 'adapter' before all references to it are out of scope.

Ziet iemand wat er fout aan is?

Dim connection As New OleDb.OleDbConnection(dbInfo)
Dim oleDbUpdateCommand As New OleDb.OleDbCommand()
Try
connection.Open()
Dim adapter As New OleDb.OleDbDataAdapter()
Dim command As String
command = "update VoerTijdenQuery set x1 = " & voermomenten(1, 1) & " where Basin = " & 1 & ""
oleDbUpdateCommand.Connection = connection
oleDbUpdateCommand.CommandText = command
adapter.UpdateCommand = oleDbUpdateCommand
adapter.UpdateCommand.ExecuteNonQuery()
Catch exceptionObject As Exception
MessageBox.Show(exceptionObject.Message)
Finally
connection.Close()
End Try

 

[edmoor]

Zet tussen Finally en End Try, onder connection.Close() ook eens het volgende:

adapter.Dispose()
adapter = Nothing

 

[HanTechneut]

Idisposble

De suggestie hierboven blijkt niet te werken. Wat wel werkte was dat ik een using/end using block invoegde tussen try en end try. Soms zelfs tweemaal igv twee verschillende variabelen. Nu zijn de waarschuwingen weg en is het programma stabiel.