Se tiver disposto a preencher o grid na unha veja abaixo o código que uso, mas veja bem é um processo lento não é indicado para tabelas com grande quantidade de registros.
dim linhapar as boolean
Qtde= rs.recordcount
ColQtde = RS.Fields.count
For i = 0 To Qtde + 1
With Grade
.Row = i + 1
For j = 0 To ColQtde - 1
.col = j
.Text = RS.Fields(nreg)
nreg = nreg + 1
If linhapar Then Grade.CellBackColor = 14737632
Next j
End With
nreg = 0
RS.MoveNext
linhapar = Not (linhapar)
Next i