主题：sql问题

为什么以下代码 运行并无提示出错，但实际数据库里边并没有增加记录。

Dim nms() As String = e.Form.Controls("CheckedComboBox1").text.split(",") '获得接收用户名

Dim cmd As New SQLCommand

cmd.C

For Each nm As String In nms

    'If nm = "" Then

        'Return

    'End If

    'If nm = User.Name Then

        'MessageBox.Show("不能给自己发信息!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

        'Return

    'End If

    cmd.CommandText = "Insert Into xinxi (fasong,jieshou,zhuangtai) Values ('" & user.name & "','" & nm & "',0)"

    cmd.ExecuteNonQuery

Next