How TO Save GridView Data In DataBase using Vb.net

Try
           Dim connectionString As String = ConfigurationManager.ConnectionStrings("ConString").ConnectionString
           Dim con As New SqlConnection(connectionString)
           con.Open()

           Dim cmd As New SqlCommand("INSERT INTO BookDetail VALUES(@Printing_Method,@year,@Month,@Faculty,@Course_Code,@Block,@Medium)")
           cmd.CommandType = CommandType.Text
           ' Dim adapFam As New SqlDataAdapter


           For i As Integer = 0 To DataGridView1.Rows.Count - 1
               cmd.Parameters.AddWithValue("@Printing_Method", DataGridView1.Rows(i).Cells(0).Value.ToString())
               cmd.Parameters.AddWithValue("@year", DataGridView1.Rows(i).Cells(1).Value.ToString())
               cmd.Parameters.AddWithValue("@Month", DataGridView1.Rows(i).Cells(2).Value.ToString())
               cmd.Parameters.AddWithValue("@Faculty", DataGridView1.Rows(i).Cells(3).Value.ToString())
               cmd.Parameters.AddWithValue("@Course_Code", DataGridView1.Rows(i).Cells(4).Value.ToString())
               cmd.Parameters.AddWithValue("@Block", DataGridView1.Rows(i).Cells(5).Value.ToString())
               cmd.Parameters.AddWithValue("@Medium", DataGridView1.Rows(i).Cells(6).Value.ToString())
               cmd.Connection = con
               cmd.ExecuteNonQuery()
               'adapFam.InsertCommand.ExecuteNonQuery()

           Next
           con.Close()
           MessageBox.Show("Successfully saved", "Inventory", MessageBoxButtons.OK, MessageBoxIcon.Information)

       Catch ex As Exception
           MsgBox(ex.Message)
       End Try