Para destacar uma linha no controle DBGrid, adicione o registro corrente à SellBookmarks Collection:
Private Sub DBGrid_RowColChange _
(LatRow As Variant, ByVal LasRow As Integer)
If Data1.RecordSet.RecordCount Then
DBGrid.SelBookmarks.Add _
Data1.RecordSet.Bookmark
End If
End Sub