windows 7 can't run vb app properly as xp

See more:

VB

Windows

I had created a vb.net application which is able to run well in windowsXP.

I'd just tried to install it into windows7 and an error occured in a saving method.
Other method is ok except for this.

What should be the cause of it? codes or windows?
If anyone knows just tell me.

The code of this method is below (My coding may not clean ^^)

Dim de As OleDbDataReader
        Dim cn As OleDbConnection = New OleDbConnection(MySTR)
        Dim cmd As OleDbCommand
        Dim cmdStr As String = ""
        Dim dt As DataTable = New DataTable
        Dim working_info_id As Integer
        Dim state As String = ""
        Dim row As Integer = 0
        Dim mbresult As MsgBoxResult
        Dim emp_id As Integer = 0
        'Dim dt As Date = dtworkingInfo.Value.Date.Day & "/" & dtworkingInfo.Value.Date.Month & "/" & dtworkingInfo.Value.Date.Year-543
        mbresult = MsgBox("กรณีที่คุณต้องการบันทึกข้อมูลนี้ กรุณากดปุ่ม 'OK'" & vbCrLf & _
                      "ถ้าไม่ต้องการ กรุณากดปุ่ม'Cancel'", vbOKCancel, "!แจ้งเตือน")
        'Try


        progressbarUpdate.Maximum = gvemployee.Rows.Count * 10

        Select Case mbresult
            Case vbOK
                Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                progressbarUpdate.Visible = True

                progressbarUpdate.Value = 10
                For i As Integer = 0 To gvemployee.Rows.Count - 2
                    If i <= (gvemployee.Rows.Count * 10) Then
                        progressbarUpdate.Value = (i * 10)
                    End If

                    If gvemployee.Rows(i).Cells(4).Value = True Then
                        state = "ทำงาน"
                        row = 4
                    ElseIf gvemployee.Rows(i).Cells(5).Value = True Then
                        state = "ลาป่วยครึ่งวัน"
                        row = 5
                    ElseIf gvemployee.Rows(i).Cells(6).Value = True Then
                        state = "ลาป่วยเต็มวัน"
                        row = 6
                    ElseIf gvemployee.Rows(i).Cells(7).Value = True Then
                        state = "ลากิจครึ่งวัน"
                        row = 7
                    ElseIf gvemployee.Rows(i).Cells(8).Value = True Then
                        state = "ลากิจเต็มวัน"
                        row = 8
                    ElseIf gvemployee.Rows(i).Cells(9).Value = True Then
                        state = "ขาด"
                        row = 9
                    Else
                        cmd = New OleDbCommand("select working_state from tb_working_info where emp_id=" & gvemployee.Rows(i).DataBoundItem("emp_id").ToString & " and working_date=#" & dtworkingInfo.Value.Date.Month & "/" & dtworkingInfo.Value.Date.Day & "/" & dtworkingInfo.Value.Date.Year & "#", cn)
                        de = cmd.ExecuteReader
                        If de.Read Then
                            state = de("working_state")
                        Else
                            state = "-"
                        End If

                    End If
                    emp_id = gvemployee.Rows(i).DataBoundItem("emp_id")
                    de = getState(emp_id)

                    Threading.Thread.Sleep(10)
                    'Try
                    If de.Read Then
                        id = de("emp_id")
                        working_info_id = de("id")
                        cmdStr = "update tb_working_info set emp_id=" & emp_id & ",working_date=#" & dtworkingInfo.Value.Date.Month & "/" & dtworkingInfo.Value.Date.Day & "/" & dtworkingInfo.Value.Date.Year & "#,working_state='" & state & "' where id=" & working_info_id
                    Else
                        cmdStr = "insert into  tb_working_info (emp_id,working_date,working_state)  values (" & emp_id & ",#" & dtworkingInfo.Value.Date.Month & "/" & dtworkingInfo.Value.Date.Day & "/" & dtworkingInfo.Value.Date.Year & "#,'" & state & "')"
                    End If
                    With cn
                        If .State = ConnectionState.Open Then .Close()
                        .ConnectionString = MySTR
                        .Open()
                    End With
                    cmd = New OleDbCommand(cmdStr, cn)
                    If state <> "" Then
                        cmd.ExecuteNonQuery()
                    End If
                    state = ""
                                        Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                    Threading.Thread.Sleep(10)
                Next
                cancelselectedCell = 0


                progressbarUpdate.Value = gvemployee.Rows.Count * 10

                cancelselectedCell = 0
                progressbarUpdate.Visible = False
                Dim dr1 = retrieveEmpInfo()
                Dim da As DataTable = New DataTable
                da.Load(dr1)
                gvemployee.DataSource = da
                Me.Cursor = System.Windows.Forms.Cursors.Default
            Case vbCancel
                cancelselectedCell = 0
                Dim dr1 = retrieveEmpInfo()
                Dim da As DataTable = New DataTable
                da.Load(dr1)
                gvemployee.DataSource = da
                (Me.PayrollDataSet.tb_employee, "#" & dtworkingInfo.Value.Date & "#", "#" & dtworkingInfo.Value.Date & "#", "#" & dtworkingInfo.Value.Date & "#")
        End Select
        Dim countemp As OleDbDataReader = countEmployee()
        If countemp.Read Then
            count = countemp("countEmp")
        End If
        Dim dr As OleDbDataReader = checkWorkingInfo() 'ตรวจสอบว่าเคยลงข้อมูลวันที่นี้หรือยัง
        If Not dr.Read Then
            cbcheckAll.Enabled = True
        Else
            cbcheckAll.Enabled = False
        End If
        progressbarUpdate.Visible = False

Apology for an unconvinient..
this is the error message http://image.free.in.th/z/im/jdddd.jpg[^]
thanks for helping everyone.