Video 5 Formulario de Compra de Bicicletas en VB.net Pasar datos de un Datagrid a otro Datagrid

Realizar una compra con Visual Studio.net y SQL server.
Pasar datos de un DataGrid cargado con datos hacia otro datagrid, y eliminar datos del datagrid.
Codigos Usados:
Private Sub BtnAgregar_Click(sender As Object, e As EventArgs) Handles btnAgregar.Click
Dim id_bicicleta, nom_tipo, nom_marca, nom_color, nom_producto As String
Dim cantidad As Integer
Dim precio, total As Decimal
id_bicicleta = Me.Mostrar_BicicletasDataGridView(0, Mostrar_BicicletasDataGridView.CurrentRow.Index).Value
nom_tipo = Me.Mostrar_BicicletasDataGridView(7, Mostrar_BicicletasDataGridView.CurrentRow.Index).Value
nom_marca = Me.Mostrar_BicicletasDataGridView(8, Mostrar_BicicletasDataGridView.CurrentRow.Index).Value
nom_color = Me.Mostrar_BicicletasDataGridView(9, Mostrar_BicicletasDataGridView.CurrentRow.Index).Value
nom_producto = nom_tipo + " " + nom_marca + " , " + nom_color
precio = Me.Mostrar_BicicletasDataGridView(5, Mostrar_BicicletasDataGridView.CurrentRow.Index).Value
Try
cantidad = InputBox("Ingrese la Cantidad a Comprar", "Producto", "1")
If (cantidad MAYOR 0 And cantidad MENOR 100 )Then
total = cantidad * precio
Me.DGCompra.Rows.Add(id_bicicleta, nom_producto, cantidad, precio, total)
Else
MsgBox("Verifique la Cantidad e intente Nuevamente", MsgBoxStyle.Information)
End If

Catch ex As Exception
MsgBox("Verifique la Cantidad e intente Nuevamente", MsgBoxStyle.Information)
End Try
End Sub


Private Sub BtnEliminar_Click(sender As Object, e As EventArgs) Handles btnEliminar.Click
Me.DGCompra.Rows.RemoveAt(Me.DGCompra.CurrentCell.RowIndex)
End Sub