To Find An existing Record in DataBase and display in fields

To Find An existing Record in DataBase and display in fields

Dim scmd As OleDbCommand
scmd = New OleDbCommand("select notice,noticedate from notice where noticeno='" & notice_no.text & "'", Application("con"))
Dim drr As OleDbDataReader
drr = scmd.ExecuteReader
drr.Read()
tb1.text = drr(0)
TextBox2.Text = drr(1)
drr.Close()