Insert data to access database in vb.net

Insert / Delete / Update data to access database

-------------------------------------------------------------------------------------
'connection string
Public con_str As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + "/db_databasename.mdb"
-------------------------------------------------------------------------------------
Private Sub Btinsert_Click(ByVal sender As System.Object, ByVal e As system.EventArgs) Handles Btsearch.Click
Try
EXECUTE_NON_QUERY("insert into tablename (tablefieldname) values ('"& txtbox1.text&"'")
Catch ex As Exception
End Try
End Sub
-------------------------------------------------------------------------------------

Public Function EXECUTE_NON_QUERY(ByVal QUERY As String) As Boolean
Dim connection As New OleDbConnection(con_str)
Try
connection.open()
Dim command As New OleDbCommand(QUERY, connection)
command.ExecuteNonQuery()
Catch ex As Exception
MessageBox.show(ex.message)
Return False
Finally
connection.Close()
End Try
Return True
End Function