vb.net连接sqlserver2012执行一条删除语句,该怎么解决

vb.net连接sqlserver2012执行一条删除语句
接触了两天VB.net,头很痛，与其继续头疼还不如求教网友。

问题如下，公司需要一个桌面可执行程序，往数据库执行一调DELETE语句，只需要执行这个语句就可以了，麻烦各位有爱的网友帮下忙，本人感激不尽。
------解决方案--------------------
 

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        conn1.Open()

//删除前先判断是否和数据库匹配、可根据你的需求不进行此操作

        Dim str1 As String = "select * from jiben where 商品编号='" & TextBox1.Text & "'"

        Dim comm1 As New OleDb.OleDbCommand(str1, conn1)

        Dim adpt1 As New OleDb.OleDbDataAdapter(comm1)

        Dim ds As New DataSet

        Dim ret As MsgBoxResult

        ret = MessageBox.Show("确定删除商品信息？", "确认", MessageBoxButtons.OKCancel, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2)

        conn1.Close()

        conn1.Open()

        If ret = MsgBoxResult.Ok Then

            Try

                Dim str2 As String = "delete from jiben where 商品编号＝" & TextBox1.Text & ""

                Dim comm2 As New OleDb.OleDbCommand(str2, conn1)

                comm2.ExecuteNonQuery()

                MessageBox.Show("商品删除成功!", "成功", MessageBoxButtons.OK, MessageBoxIcon.Information)

            Catch ex As Exception

                MessageBox.Show("删除失败!", "错误", MessageBoxButtons.OK, MessageBoxIcon.Error)

                MessageBox.Show(ex.Message)

            End Try

        End If

        conn1.Close()

        conn1.Open()

        ds.Clear()

        adpt1.Fill(ds, "jiben")

        DataGrid1.DataSource = ds

        DataGrid1.DataMember = "jiben"

        conn1.Close()

    End Sub

参考
------解决方案--------------------

Imports System.Data.SqlClient

 Public Shared ConnectionString As String = "Data Source=" + Common.Server + ";Initial Catalog=" + Common.Db + ";User ID=" + Common.UId + ";Password=" + Common.Pwd

    ''' <summary>

    ''' 执行SQL语句，返回影响的记录数

    ''' </summary>

    ''' <param name="SQLString">SQL语句</param>

    ''' <returns>影响的记录数</returns>

    Public Shared Function ExecuteSql(ByVal SQLString As String) As Integer

        Using connection As New SqlConnection(ConnectionString)

            Using cmd As New SqlCommand(SQLString, connection)

                Try

                    connection.Open()

                    Dim rows As Integer = cmd.ExecuteNonQuery()

                    Return rows

                Catch e As System.Data.SqlClient.SqlException

                    connection.Close()

                    Throw e

                End Try

            End Using

        End Using

    End Function