Dim myCM As CurrencyManager
             Try
                myCM.Position = myCM.Position +1
 
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
 
 
 
    End Sub

----
Meine Komponenten sind:
Visual Studio 2008 (Standard) SP 1
Windows 7 SP 1