¿DATAGRIDVIEW utilizado con parametros?

[josiasdaniel_]

Saludos amigo Ka0stj, gracias por tu valiosa colaboración, te pongo el codigo para ponerte en contexto, y en negro la parte donde intento hacer el insert. Me esta dando error en tiempo de ejecución, dice que no se puede convertir un objeto de tipo "System.window.form.datagridview" al tipo "System.data.dataRow". Entonces te pregunto ¿como podria hacer la conversión de forma correcta?

Código:

Select Case (tipo)
                Case (tipoAviso.Desplegado)

                    'Habilito el TbRangoDespDataGridView para vizualizarlo
                    TbRangoDespDataGridView.Enabled = True
                    TbRangoDespDataGridView.Visible = True

                    ' cargando nuevo dataset
                    Dim DesplegadoData__DGW As New tbRangoDespDSTableAdapters.tbRangoDespTableAdapter

                    'Asignando la tabla TbRangoDesp como fuente de datos al BindingSource
                    TbRangoDespBindingSource.DataSource = TbRangoDespDS.Tables("tbRangoDesp")

                    'Asignamos a la grilla los valores resultantes del select diseñado en el metodo GetDataBycrd_codigo
                    'del tableAdapter
                    TbRangoDespDataGridView.DataSource = DesplegadoData__DGW.GetDataBycdr_codigo(codigoOrigen.ToString)

                    'almaceno el contador de registros del select en la variable i
                    Dim i As Integer = TbRangoDespDataGridView.RowCount

                    'contador es variable indice
                    Dim contador As Integer
                    For contador = 0 To i - 1

                        'Valido que los codigos no correspondan a la opciòn Default
                        If codigoDestino.ToString = "00000" Or codigoOrigen = "00000" Then
                            MsgBox("ORIGEN Ó DESTINO NO PUEDE SER DEFAULT")
                        Else
                            TbRangoDespDataGridView.Item(0, contador).Value = codigoDestino.ToString
                            Dim Variable As String = CStr(TbRangoDespDataGridView.Item(0, contador).Value)
                        End If

                    Next

                   
                    Static a As Integer = 0
                    For Each dtr As Data.DataRow In TbRangoDespDataGridView.Rows
                        Dim registro As DataRow = TbRangoDespDS.tbRangoDesp.NewRow
                        registro(a) = dtr(a)
                        TbRangoDespDS.tbRangoDesp.Rows.Add(registro)
                        a += 1
                    Next

                    TbRangoDespDS.AcceptChanges()


                Case (tipoAviso.Clasificado)