Alimentando grid manualmente

Olá!

Sempre alimento as Grids desta forma:

conexao.Open()
Dim Dt As OleDbDataAdapter
Dim Ds As New DataSet
Dt = New OleDbDataAdapter(sqlsql, conexao)
Dt.Fill(Ds, "dados")
Dt.Dispose()
gridusuarios.DataSource = Ds.Tables("dados").DefaultView
gridusuarios.DataBind()
gridusuarios.Visible = True
conexao.Close()
Mas gostaria de fazer um while e colocar linha a linha. Expliquei direitinho?

Fazer algo do tipo...

Dim dr55 As OleDbDataReader
Dim cmd55 As New OleDbCommand(sqlsql, conexao)
dr55 = cmd55.ExecuteReader()
While dr55.Read()
'adicionar linha por linha..
End While
dr55.Close()
Tem como fazer isso?

Obrigada, bjs