Record is Deleted Error

[csin]

If RecSet.State <> 0 Then RecSet.Close()
RecSet.Open("select * from tblPlatform", Conn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
        If RecSet.RecordCount > 0 Then
            Do While RecSet.EOF = False
                On Error GoTo NextRec
                strMU = RecSet.Fields(1).Value
                lngPlatformFK = RecSet.Fields(0).Value
                If RecSet2.State <> 0 Then RecSet2.Close()
                RecSet2.Open("select * from tblPrograms where lngPlatformFK = '" & lngPlatformFK & "' and strMU='" & strMU & "'", Conn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
                If RecSet2.RecordCount < 1 Then
                    If RecSet2.State <> 0 Then RecSet2.Close()
                    RecSet2.Open("delete from tblPlatform where strPlatform = '" & lngPlatformFK & "' and strMU='" & strMU & "'", Conn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
                End If
                If RecSet2.State <> 0 Then RecSet2.Close()
NextRec:
                RecSet.MoveNext()
            Loop
        End If

In the above code I am getting the following error:

System.Runtime.InteropServices.COMException was unhandled
  ErrorCode=-2147217885
  Message="Record is deleted."
  Source="Microsoft JET Database Engine"
  StackTrace:
       at ADODB.Field.get_Value()    at ADODB.InternalField.get_Value()    at Serials_2009.modDeclerations.VerifyDB() in C:\Users\Morgan\Documents\Visual Studio 2008\Projects\Serials 2009\Serials 2009\modDeclerations.vb:line 159    at Serials_2009.frmUpdates.Command1_Click(Object sender, EventArgs e) in C:\Users\Morgan\Documents\Visual Studio 2008\Projects\Serials 2009\Serials 2009\frmUpdates.vb:line 23    at System.Windows.Forms.Control.OnClick(EventArgs e)    at System.Windows.Forms.Button.OnClick(EventArgs e)    at System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)    at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)    at System.Windows.Forms.Control.WndProc(Message& m)    at System.Windows.Forms.ButtonBase.WndProc(Message& m)    at System.Windows.Forms.Button.WndProc(Message& m)    at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)    at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)    at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)    at System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)    at System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(Int32 dwComponentID, Int32 reason, Int32 pvLoopData)    at System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)    at System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)    at System.Windows.Forms.Form.ShowDialog(IWin32Window owner)    at System.Windows.Forms.Form.ShowDialog()    at Serials_2009.frmMain.ViewRemoveUpdatesToolStripMenuItem_Click(Object sender, EventArgs e) in C:\Users\Morgan\Documents\Visual Studio 2008\Projects\Serials 2009\Serials 2009\Form1.vb:line 947    at System.Windows.Forms.ToolStripItem.RaiseEvent(Object key, EventArgs e)    at System.Windows.Forms.ToolStripMenuItem.OnClick(EventArgs e)    at System.Windows.Forms.ToolStripItem.HandleClick(EventArgs e)    at System.Windows.Forms.ToolStripItem.HandleMouseUp(MouseEventArgs e)    at System.Windows.Forms.ToolStripItem.FireEventInteractive(EventArgs e, ToolStripItemEventType met)    at System.Windows.Forms.ToolStripItem.FireEvent(EventArgs e, ToolStripItemEventType met)    at System.Windows.Forms.ToolStrip.OnMouseUp(MouseEventArgs mea)    at System.Windows.Forms.ToolStripDropDown.OnMouseUp(MouseEventArgs mea)    at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)    at System.Windows.Forms.Control.WndProc(Message& m)    at System.Windows.Forms.ScrollableControl.WndProc(Message& m)    at System.Windows.Forms.ToolStrip.WndProc(Message& m)    at System.Windows.Forms.ToolStripDropDown.WndProc(Message& m)    at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)    at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)    at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)    at System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)    at System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(Int32 dwComponentID, Int32 reason, Int32 pvLoopData)    at System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)    at System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)    at System.Windows.Forms.Application.Run(ApplicationContext context)    at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()    at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()    at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)    at Serials_2009.My.MyApplication.Main(String[] Args) in 17d14f5c-a337-4978-8281-53493378c1071.vb:line 81    at System.AppDomain._nExecuteAssembly(Assembly assembly, String[] args)    at System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args)    at Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly()    at System.Threading.ThreadHelper.ThreadStart_Context(Object state)    at System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)    at System.Threading.ThreadHelper.ThreadStart()
  InnerException: 

I have sepnt a lot of time trying to figure out what is causing this, and from what I cant find anything that should be causing this...

I dont have any records that say #delete...

Any ideas?