Connecting And Reading 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()
Else
MessageBox.Show("Opened Already")
End If

If cn.State = ConnectionState.Open Then
'MessageBox.Show("open")

cmd = New OleDbCommand("select * from allSettings where File_type='Full_A'", cn)
dr = cmd.ExecuteReader
readDatabase(cmd, cn, dr, objCh1_FULL)
cmd = New OleDbCommand("select * from allSettings where File_type='Full_B'", cn)
dr = cmd.ExecuteReader

If dr.HasRows Then
While dr.Read()
' MessageBox.Show(dr(0) & dr(1) & dr(2))
' loading data into TextBoxes by column index

objch.isON = dr(2)
' MessageBox.Show(objch.isON)
objch.name = dr(3)
objch.ismodedivider = dr(4)
end while
end if


dr.Close()
cn.Close()