Capturar Valor De Linha Selecionada Grid

[Macêdo]

tenho uma rotina FILTER à qual pus como referencia, ou melhor, tentei por como referencia o valor do COD que se encontra dentro do Datagrid, ou seja, gostaria que o FILTER pegasse o valor do campo selecionado no Datagrid, assim:

exemplo do GRID:

COD NOME ENDEREÇO

1 KUROI TSL

4 JILNEY ASDADFA

18 GABRIEL ASDASDA

7 MACEDO ASDAKLGFDS

Digamos que o usuario selecione a linha:

4 JILNEY ASDADFA

Gostaria de usar como parametro para o FILTER este valor do COD = 4, ou seja, usar sempre o valor da 1ª coluna da linha selecionada.

Dim cnncomando As New ADODB.Command

Dim rs_altera As New ADODB.Recordset

With cnncomando

.ActiveConnection = cnnProjetos

.CommandType = adCmdText

.CommandText = "select * from arquivo"

Set rs_altera = .Execute

End With

With rs_altera

rs_altera.Filter = " cod = '" & DataGrid1.(O_QUE_COLOCO_AQUI?) & "'"

Dim vCaixa As Integer

vCaixa = MsgBox("Deseja alterar o número da caixa onde está arquivado o projeto de : " & !nome & " ? ", vbYesNo + vbQuestion, "Alterar caixa do arquivo")

If vCaixa = vbYes Then

Dim vALT As Integer

vALT = InputBox("Digite o número da caixa onde será arquivado o projeto", "Arquivar projeto")

With cnncomando

.ActiveConnection = cnnProjetos

.CommandType = adCmdText

.CommandText = " update arquivo set " & _

" caixa = '" & vALT & "'" & _

"where cod = '" & DataGrid1.(O_MESMO_VALOR_QUESTIONADO) & "';"

End With

Set rs_altera = Nothing

Set cnncomando = Nothing

End If

End With

End Sub

[kuroi]

você tem um recordset vinculado ao grid não?? é so pegar o codigo pelo recordset e não pelo grid. tipo assim: rs!Codigo