提交资料的代码

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