Update ms ACCESS using vb.net

Dim cn As OleDbConnection
Dim cmd As OleDbCommand
Dim dr As OleDbDataReader

Try
cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Im_ETM\dbase\settings.mdb;")
'provider to be used when working with access database
If cn.State = ConnectionState.Closed Then
cn.Open()
' MessageBox.Show("open")
Else
MessageBox.Show("open already")
End If

If cn.State = ConnectionState.Open Then
'MessageBox.Show(objCh1_FULL.isON & " " & objCh1_FULL.isScale)
'QUERY TO UPDATE ALL SETTINGS
cmd = New OleDbCommand("UPDATE allSettings set Channel_on_off = '" & objCh1_FULL.isON & "', Channel_name= '" & objCh1_FULL.Name & "', Div_Shunt='" & objCh1_FULL.isModeDivider & "', Divider_Ratio='" & objCh1_FULL.Ratio & "', Amplitue='" & _
objCh1_FULL.Ampl & "', Measuring_Time='" & objCh1_FULL.MeasureTime & "', UnderShoot='" & objCh1_FULL.UnderShoot & "', Polarity='" & objCh1_FULL.isPositivePolarity & "', Trigger_Level ='" & objCh1_FULL.trigger & "', Suggested='" & objCh1_FULL.suggested & _
"', Suggested_Manual='" & objCh1_FULL.suggested_sel & "', Offset='" & objCh1_FULL.Offset & "', Internal_Divider='" & objCh1_FULL.InternalDivider & "', Max_Voltage='" & objCh1_FULL.maxVolt & "', BIL_Level='" & objCh1_FULL.billevel & _
"', Auto_Manual='" & objCh1_FULL.isScale & "' where File_type='Full_A'", cn)

dr = cmd.ExecuteReader


dr.Close()
cn.Close()