Unspecified Error - OleDbException was unhandled by user code, Help!

<pre lang="vb">
Private Sub gvemployee_RowPostPaint(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowPostPaintEventArgs) Handles gvemployee.RowPostPaint
       'Try
       If Not e.IsLastVisibleRow Then
           If cancelselectedCell = 0 Then
               gvemployee.Rows(e.RowIndex).Cells(0).Value = e.RowIndex + 1
               Dim theID As Integer
               theID = gvemployee.Rows(e.RowIndex).DataBoundItem("emp_id")
               Dim dr As OleDbDataReader
               dr = getState(theID)
               If dr.Read Then
                   If dr("working_state") <> "" Then
                       If dr("working_state") = "ทำงาน" Then
                           gvemployee.Rows(e.RowIndex).Cells(4).Value = True
                       ElseIf dr("working_state") = "ลาป่วยครึ่งวัน" Then
                           gvemployee.Rows(e.RowIndex).Cells(5).Value = True
                       ElseIf dr("working_state") = "ลาป่วยเต็มวัน" Then
                           gvemployee.Rows(e.RowIndex).Cells(6).Value = True
                       ElseIf dr("working_state") = "ลากิจครึ่งวัน" Then
                           gvemployee.Rows(e.RowIndex).Cells(7).Value = True
                       ElseIf dr("working_state") = "ลากิจเต็มวัน" Then
                           gvemployee.Rows(e.RowIndex).Cells(8).Value = True
                       ElseIf dr("working_state") = "ขาด" Then
                           gvemployee.Rows(e.RowIndex).Cells(9).Value = True
                       Else
                           'gvemployee.Rows.Count
                           'gvemployee.Rows(e.RowIndex).Cells(0).Value = True
                       End If
                   End If
                   'Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                   Threading.Thread.Sleep(20)

               End If
           End If
       End If
       If e.IsLastVisibleRow Then
           Me.Cursor = System.Windows.Forms.Cursors.Default
       End If
       ''Catch ex As Exception
       '   'MsgBox(ex.Message)
       ''End Try
   End Sub

Function getState(ByVal newId As String) As OleDbDataReader
        'Try
        Dim dr As OleDbDataReader
        Dim cn As OleDbConnection = New OleDbConnection(MySTR)
        Dim cmd As OleDbCommand


        Threading.Thread.Sleep(50)
        Dim dt As DataTable = New DataTable

        With cn
            If .State = ConnectionState.Open Then .Close()
            .ConnectionString = MySTR
            .Open()
        End With
        cmd = New OleDbCommand("select * from tb_working_info  where emp_id=" & newId & " and working_date=datevalue('" & dtworkingInfo.Value.Date & "')", cn)
        dr = cmd.ExecuteReader()
        Return dr
        'Catch ex As Exception
        'MsgBox(ex.Message)
        'End Try
        Me.Cursor = System.Windows.Forms.Cursors.WaitCursor



    End Function