read data from access database in vb.net

read data from access database
'connection string
-------------------------------------------------------------------------------------
Public con_str As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + "/db_atabasename.mdb"
-------------------------------------------------------------------------------------
Private Sub Btsearch_Click(ByVal sender As System.Object, ByVal e As system.EventArgs) Handles Btsearch.Click
Try
Dim ds As New DataSet
ds=EXECUTE_READ_QUERY("Select * from tablename")
Catch ex As Exception
End Try
End Sub
-------------------------------------------------------------------------------------
'function for read the data
Public Function EXECUTE_READ_QUERY(ByVal QUERY As String) As DataSet
Dim ds As New DataSet
Dim connection As New OleDbConnection(con_str)
Try
connection.open()
Dim adapter As New OleDbDataAdapter(QUERY, connection)
adapter.fill(ds)
Return ds
Catch ex As Exception
MessageBox.show(ex.message)
Return ds
Finally
connection.Close()
End Try
Return ds
End Function
-------------------------------------------------------------------------------------