Insertar Datos a Datagridview

Me gustaría saber si me puedes ayudar con esto: estoy programando en VB net.. Veras,, tengo un datagridview.. Al cual le pongo unos datos directamente en las celdas(cuando corro el sistema) y quiero que al darle click en cerrar me guarde los datos esos en una tabla (en Sqlserver).. ¿cómo puedo hacer esto? Tengo el siguiente código que se supone (según mi lógica) lo debería hacer..
Dim conx As System.Data.SqlClient.SqlConnection = New System.Data.SqlClient.SqlConnection("Data Source=11.11.11.1;Initial Catalog=BD240;Persist Security Info=True;User ID=sitauser;Password=blabla")
                Conx. Open()
                Conx. Open()
                Dim sqql As String = "Insert Into TABCOMP (NUM_REF,FEC_CREA,COMP,MONTO,AUTORIZA) VALUES(@NUM_REF,@FEC_CREA,@COMP,@MONTO,@AUTORIZA)"
                Dim comm As New SqlCommand(sqql, conx)
                For Each row As DataGridViewRow In Me.DataGridView2.Rows
                    Comm. Parameters.AddWithValue("@NUM_REF", row.Cells("NUM_REF"))
                    Comm. Parameters.AddWithValue("@FEC_CREA", row. Cells("FECHA"))
                    Comm. Parameters. AddWithValue("@COMP", row. Cells("COMPLEMENTO"))
                    Comm. Parameters. AddWithValue("@MONTO", row. Cells("MONTO"))
                    Comm. Parameters. AddWithValue("@AUTORIZA", row. Cells("AUTORIZA"))
                    Comm. ExecuteNonQuery()
                Next
                Conx. Close()
No me muestra ningún error.. Pero no me guarda los datos.. ¿alguna idea?