Prova così:

PRIMA di impostare il RecordSource alla DataGrid
imposta la proprietà:

rs.CursorLocation = adUseClient

e poi fai

Set myDG.DataSource = rs