主题：[求助]此段代码错在何处

Dim Multi As String = "姓名,性别,年龄"
Dim Values() as String
Values = Multi.split(",")
For Index As Integer = 0 To Values.Length - 1
    if e.Form.Controls(Values(Index)).Value = nothing
        MessageBox.Show("对不起,您输入的信息不全,请录入<" & Values(Index) & ">后再继续!", "提示")
        e.Form.Controls(Values(Index)).Select()
        Return
    end if
    dim y as String = ""
    y = y & "," & Values(Index)
    dim s as String = ""
    s = s & ",'" & e.Form.Controls(Values(Index)).value & "'"
    Dim scm as New SQLCommand
    scm.ConnectionName  = "y"
    scm.CommandText = "Insert Into 民兵 " & "(" & y.Trim(",") & ")" & "" & "" & "Values(" & s.Trim(",") & ")"
    scm.ExecuteNonQuery
Next
在向后台数据库中写入控件值时，为何一个控件的值在后台就是一行。如上代码将在后台数据库中写入3行