VB.net里怎么执行文本框中的SQL语句

'引用
Imports System.Data.OleDb
'引入数据库信息
    Dim apppath As String = My.Application.Info.DirectoryPath
    Dim ole_conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & apppath & "\MyMediaDatabase.mdb;Persist Security Info=False")
  '过程
                Dim in_m As New OleDbCommand
                in_m.Connection = ole_conn
                in_m.CommandText = tbSQLStr.text
                ole_conn.Open()
                in_m.ExecuteNonQuery()
                ole_conn.Close()