vb.net文本框输入数据安插到access数据库中，但是数据库却无变化

vb.net文本框输入数据插入到access数据库中，但是数据库却无变化
  Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Dim cn As New OleDb.OleDbConnection

        Dim cmd2 As OleDb.OleDbCommand = cn.CreateCommand
        Dim cmd3 As OleDb.OleDbCommand = cn.CreateCommand
        Dim da2 As New OleDb.OleDbDataAdapter

        Dim dt1 As New DataTable

        cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\orderbase.accdb"

        cn.Open()
        cmd2.CommandText = "insert into faciinfo ([堆垛机行驶速度],[取放速度],[人工拣选速度],[输送带传送速度],[堆垛机起升速度],[附加时间]) values ('" & Trim(TextBox23.Text) & "','" & TextBox24.Text & "','" & TextBox26.Text & "','" & TextBox27.Text & "','" & TextBox22.Text & "','" & TextBox25.Text & "')"

        da2.SelectCommand = cmd2

        MsgBox("数据插入成功！测试值：取放速度" & TextBox24.Text & "m", vbOKOnly + 64, "提示")
        cmd3.CommandText = "select * from faciinfo where 堆垛机行驶速度='" & TextBox23.Text & "'"

        da2.SelectCommand = cmd3

        da2.Fill(dt1)

        DataGridView1.DataSource = dt1
    End Sub
------解决思路----------------------
感觉赋值没有执行吧。

cmd2.CommandText = "insert into faciinfo ([堆垛机行驶速度],[取放速度],[人工拣选速度],[输送带传送速度],[堆垛机起升速度],[附加时间]) values ('" & Trim(TextBox23.Text) & "','" & TextBox24.Text & "','" & TextBox26.Text & "','" & TextBox27.Text & "','" & TextBox22.Text & "','" & TextBox25.Text & "')"

        da2.SelectCommand = cmd2    //cmd2 赋值

        MsgBox("数据插入成功！测试值：取放速度" & TextBox24.Text & "m", vbOKOnly + 64, "提示")
        cmd3.CommandText = "select * from faciinfo where 堆垛机行驶速度='" & TextBox23.Text & "'"

        da2.SelectCommand = cmd3   //cmd2没有执行就把cmd3 赋值了

        da2.Fill(dt1)