ola pessoal, estou precisando adicionar uma coluna no mshflexgrid via codigo, da seguinte maneira Dim linha As Integer
linha = griddados.Row
For linha = 1 To griddados.Rows - 1
testoque.Find "codtrans_e = '" & (griddados.TextMatrix(linha, 5)) & " ' ", 0, adSearchForward, 1
If Not testoque.EOF Then
If Len(griddados.TextMatrix(linha, 1)) <> 0 Then
griddados.AddItem (testoque!desc_es, linha, 6) ' <-- esta linha esta errada
End If
End If
Next tem que ir adicionando na coluna 6, já tentei colocando o textmatrix rebendo o valor do campo mas também não deu certo, agradeço a ajuda