What's wrong in my code to search and display the record in labells from access db

What's wrong in my code to search and display the record in labells from
access db

Public Class Emp
Dim con As New OleDb.OleDbConnection
Dim dbProvider As String
Dim dbSource As String
Dim ds As New DataSet
Dim da As New OleDb.OleDbDataAdapter
Dim sql As String
Dim inc As Integer
Dim MaxRows As Integer
Private Sub Emp_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
dbProvider = "Provider=Microsoft.Ace.OLEDB.12.0;"
dbSource = "Data Source = C:\Users\Blessing\Documents\IBCARIP.accdb"
con.ConnectionString = dbProvider & dbSource
con.Open()
sql = "SELECT * From Employees"
da = New OleDb.OleDbDataAdapter(sql, con)
da.Fill(ds, "IBCARIP")
'con.Close()
txtID.Text = ds.Tables("IBCARIP").Rows(0).Item(0)
txtName.Text = ds.Tables("IBCARIP").Rows(0).Item(1)
MaxRows = ds.Tables("IBCARIP").Rows.Count
inc = -1
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
dbProvider = "Provider=Microsoft.Ace.OLEDB.12.0;"
dbSource = "Data Source = C:\Users\Blessing\Documents\IBCARIP.accdb"
con.ConnectionString = dbProvider & dbSource
con.Open()
sql = ("SELECT * From Calculator WHERE ID_Number like '%" + txtID.Text
+ "%'")
da = New OleDb.OleDbDataAdapter(sql, con)
con.Close()
da.Fill(ds, "IBCARIP")
lblSAI.Text = ds.Tables("IBCARIP").Rows(inc).Item(0) &
ds.Tables("IBCARIP").Rows(inc).Item(1)
lblRate.Text = ds.Tables("IBCARIP").Rows(inc).Item("NRate")
lblOT.Text = ds.Tables("IBCARIP").Rows(inc).Item(7)
End Sub