提交資料的代碼

Private Sub btn_tj_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handl es btn_tj.Click
        Dim sql As String
        sql = "INSERT INTO TONGXUE(姓名, 出生年月, 性別, 工作單位, 移動電話, 郵件地址, QQ號碼, 從事行業) VALUES ('" & tbxm.Text & "','" & tbcs.Text & "','" & cbxb.Text & "','" & tbdh.Text & "','" & tbyj.Text & "','" & tbtx.Text & "','" & tbgz.Text & "','" & cbhy.Text & "')"
        Try
            Me.SqlConn.Open()
            Me.SqlComm.CommandText = sql
            Me.SqlComm.ExecuteNonQuery()
            MsgBox("您的數據成功提交！", MsgBoxStyle.YesNoCancel, "提示")
        Catch ex As Exception
            MessageBox.Show("您的數據沒有成功提交！", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Stop)
        End Try
        Me.SqlConn.Close()

    End Sub