problemas con la seleccion en un datagrid

[jeka]

ojala me puedas ayudar pq es un problema rarisimo.

tengo un form q busca detalles de un pedido, para eso tengo una caja donde se ingresa el codigo del pedido y un datagrid donde se muestra los detalles, te explico el problema, pasa q cuando se llena el datagrid con detalles de un pedido, y nuevamente busco otro detalle de pedido y este nuevo pedido no tiene detalles se carga los detalles del pedido anterior.
Te mando el codigo del boton q busca y el procedimiento q carga al datagrid:

Private Sub btnVerPedidos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVerPedidos.Click
If Me.txtCodigo.Text <> "" Then

Dim dt1 As New DataTable
Dim cod As Integer = CInt(Me.txtCodigo.Text)
dt1 = frmMenu.oConexion.detalle_proveedor(cod)


Me.cargar_grid(Me.dtgDetallesPedidos, dt1)
Me.dtgDetallesPedidos.SetDataBinding(dt1, "")


End Sub

y este es el codigo del procedimiento cargar_grid()

Private Sub cargar_grid(ByVal dg As DataGrid, ByVal dt As DataTable)
Try
dg.TableStyles.Clear()
Dim ts As New DataGridTableStyle
Dim dgtCodigo As New DataGridTextBoxColumn
Dim dgtFechaPedido As New DataGridTextBoxColumn
Dim dgtPrecioUnitario As New DataGridTextBoxColumn
Dim dgtCantidad As New DataGridTextBoxColumn
Dim dgtTotal As New DataGridTextBoxColumn
Dim dgtAnterior As New DataGridTextBoxColumn
Dim dgtFechaPago As New DataGridTextBoxColumn
Dim dgtAcuenta As New DataGridTextBoxColumn
Dim dgtResto As New DataGridTextBoxColumn
Dim dgtObservaciones As New DataGridTextBoxColumn
ts.MappingName = dt.TableName
'
dgtCodigo.MappingName = dt.Columns(0).ColumnName
dgtCodigo.Alignment = HorizontalAlignment.Center
dgtCodigo.Width = 50
dgtCodigo.HeaderText = "Cod."
dgtCodigo.ReadOnly = True
ts.GridColumnStyles.Add(dgtCodigo)
'
dgtFechaPedido.MappingName = dt.Columns(1).ColumnName
dgtFechaPedido.Alignment = HorizontalAlignment.Center
dgtFechaPedido.Width = 100
dgtFechaPedido.HeaderText = "Fecha Pedido"
dgtFechaPedido.ReadOnly = True
ts.GridColumnStyles.Add(dgtFechaPedido)
'
dgtPrecioUnitario.MappingName = dt.Columns(3).ColumnName
dgtPrecioUnitario.Width = 100
dgtPrecioUnitario.Alignment = HorizontalAlignment.Center
dgtPrecioUnitario.HeaderText = "Precio unitario"
dgtPrecioUnitario.ReadOnly = True
dgtPrecioUnitario.Format = "#,##0.00;(#,##0.00)"
ts.GridColumnStyles.Add(dgtPrecioUnitario)
'
dgtCantidad.MappingName = dt.Columns(4).ColumnName
dgtCantidad.Alignment = HorizontalAlignment.Center
dgtCantidad.HeaderText = "Cantidad"
dgtCantidad.ReadOnly = True
ts.GridColumnStyles.Add(dgtCantidad)
'
dgtTotal.MappingName = dt.Columns(5).ColumnName
dgtTotal.Alignment = HorizontalAlignment.Center
dgtTotal.HeaderText = "Importe"
dgtTotal.ReadOnly = True
dgtTotal.Format = "#,##0.00;(#,##0.00)"
ts.GridColumnStyles.Add(dgtTotal)
'
dgtAnterior.MappingName = dt.Columns(6).ColumnName
dgtAnterior.Alignment = HorizontalAlignment.Center
dgtAnterior.HeaderText = "Anterior"
dgtAnterior.ReadOnly = True
dgtAnterior.Format = "#,##0.00;(#,##0.00)"
ts.GridColumnStyles.Add(dgtAnterior)
'
dgtFechaPago.MappingName = dt.Columns(7).ColumnName
dgtFechaPago.Alignment = HorizontalAlignment.Center
dgtFechaPago.HeaderText = "Fecha pago"
dgtFechaPago.ReadOnly = True
ts.GridColumnStyles.Add(dgtFechaPago)
'
dgtAcuenta.MappingName = dt.Columns(8).ColumnName
dgtAcuenta.Alignment = HorizontalAlignment.Center
dgtAcuenta.HeaderText = "Acuenta"
dgtAcuenta.ReadOnly = True
dgtAcuenta.Format = "#,##0.00;(#,##0.00)"
ts.GridColumnStyles.Add(dgtAcuenta)
'
dgtResto.MappingName = dt.Columns(9).ColumnName
dgtResto.Alignment = HorizontalAlignment.Center
dgtResto.HeaderText = "Saldo"
dgtResto.ReadOnly = True
dgtResto.Format = "#,##0.00;(#,##0.00)"
ts.GridColumnStyles.Add(dgtResto)
'
dgtObservaciones.MappingName = dt.Columns(10).ColumnName
dgtObservaciones.Alignment = HorizontalAlignment.Center
dgtObservaciones.HeaderText = "Observaciones"
dgtObservaciones.ReadOnly = True
ts.GridColumnStyles.Add(dgtObservaciones)
'
dg.TableStyles.Add(ts)
Catch e As Exception
MessageBox.Show(e.ToString, "Cargar Grid")
End Try
End Sub


ayudame porfis
gracias