Private Sub RefreshData()
        Dim cm As CurrencyManager
        cm = CType(Me.BindingContext(Me.DV1), CurrencyManager)
        ' Aktuelle ID, hole Id 
        Dim dr As DataRow = DirectCast(cm.Current, DataRow)
        ' Tabelle neu einlesen
        Me.OleDbDataAdapter1.Fill(Me.DS1, "Tab1")
        ' Aktuelle Zeile deklarieren
        Dim AktId As Integer = CInt(dr("ID"))
        ' Die aktuelle ID finden
        Dim RowNum As Integer = DV1.Find(AktId) 
        ' Im DataGrid die Row setzen (gefundene ID)
        cm.Position = RowNum
End Sub

VB@rchiv its the Best