Ola pessoal estou com uma rotina para preencher um grid bem simples

é esta aqui:

Do While Not rs.EOF
If rs.Fields("valor") <= 200 Then
Grid.AddItem ""
Grid.Row = Grid.Row + 1
Grid.Col = 0
Grid.Text = rs.Fields("codigo")
Grid.Col = 1
Grid.Text = rs.Fields("nome")
Grid.Col = 2
Grid.Text = rs.Fields("valor")
valor1 = rs.Fields("valor")
valor = Abs(valor) + Abs(valor1)
End If
rs.MoveNext
Loop
so q na primeira linha do grid ele coloca tudo em branco sem conteudo

como faço pra ele começar a preencher na primeira linha tambem?

desde ja OBRIGADO

Pessoal ninguem pode me dar uma ajuda ai ou ao menos me dar uma dica de onde eu encontro a solução desse probleminha????

POr favor

Eu Agradeço desde ja.

Tente:

I=0

GradeClientes.Rows = 1

Do While Not oSql.EOF
            With GradeClientes
                nLinhas = .Rows + 1
                .Rows = nLinhas
                nPos = .Rows - 1
                .Row = nPos
                I = I + 1
                .Col = 0                                   ' INSERE A COLUNA ID_CLIENTE
                .Text = oSql![ID_CLIENTE]
                .Col = 1
                .Text = oSql![NOME]
                .Refresh
            End With

   oSql.MoveNext
  Loop

Não se esqueça de adaptar o código a sua necessidade.

Ps.: Pessoalmente não gosto do metodo additem para esse controle.

Se vc não entender me contate via msn !!!

 

sem mais,
       

valeu Snake deu certinho eu intendi sim Brigadao