mdbファイルにアクセス出来なくなる原因が知りたい。

言語: VB.NET
統合開発ソフト： VisualStudio2017
OS: Windows10

mdbと連携した生産管理用のFormアプリケーションを作成しております。
月に1,2回 mdbファイルにアクセス出来なくなり、アプリケーションを再起動しないと復旧出来なくなります。
最終的にはバグを直したいのですが、まずはアクセスできなくなる原因を知りたいです。
mdbファイルが4個あるのですが、この症状が発生した時は他のファイルへのInsertも失敗します。
大変恐縮ですが、ご教授お願いします。

発生している問題・エラーメッセージ

下記ソース "ErrorDebug_OleDbError" で出力されたメッセージ
2021/10/13 03:19:33,OleDB.Error,GetStateCount,SELECT * FROM Rec_aaa WHERE [STATE] = 'Fin' AND [RecTime] > #2021/09/14 10:32:00#
2021/10/13 03:19:33,OleDB.Error,GetStateCount,エラーを特定できません

該当のソースコード

VB.NET
1    Function GetStateCount(ByVal UnitName As String, ByVal fromTime As String, Optional ByVal State As String = "Fin") As Integer
2        Dim TableName As String = "Rec_" & UnitName
3        Dim CMD As String = "SELECT * FROM " & TableName & " WHERE [STATE] = '" & State & "' AND [RecTime] > #" & fromTime & "#"
4
5        Using oCon As New OleDbConnection
6            Using oCmd As New OleDbCommand
7                Using oDa As New OleDbDataAdapter
8                    Try
9                        Dim dSet As New DataSet
10                        oCon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Recordmdb & ";"
11                        oCmd.Connection = oCon
12                        oCmd.CommandText = CMD
13
14                        oDa.SelectCommand = oCmd
15                        oDa.Fill(dSet, TableName)
16
17                        Dim uTable As DataTable = dSet.Tables(TableName)
18                        If uTable Is Nothing Then
19                            Return 0
20                        Else
21                            Return uTable.Rows.Count
22                        End If
23
24                    Catch oEx As OleDbException
25                        ErrorDebug_OleDbError(oEx, CMD)
26                    Catch ex As Exception
27                        ErrorDebug_Error(ex)
28                    Finally
29                        oCon.Close()
30                    End Try
31                End Using
32            End Using
33        End Using
34        Return 0
35    End Function
36
37        Sub ErrorDebug_OleDbError(ByVal ex As OleDb.OleDbException, Optional msg As String = "")
38            If clsConst.ErrDebug = True Then
39                Dim strDir As String = APPPath() & "\Log\"
40                Dim strPath As String = APPPath() & "\Log\log.txt"
41                If Directory.Exists(strDir) Then
42                Else
43                    Directory.CreateDirectory(strDir)
44                End If
45
46                Using sw As New StreamWriter(strPath, True, Encoding.Default)
47                    Dim log As String = ""
48                    If msg <> "" Then
49                        log = Now.ToString("yyyy/MM/dd HH:mm:ss") & ",OleDB.Error," & New StackFrame(1).GetMethod.Name & "," & msg
50                        sw.WriteLine(log)
51                    End If
52
53                    If ex.Errors.Count > 0 Then
54                        For Each Err As OleDb.OleDbError In ex.Errors
55                            log = Now.ToString("yyyy/MM/dd HH:mm:ss") & ",OleDB.Error," & New StackFrame(1).GetMethod.Name & "," & Err.Message & " : " & Err.SQLState
56                            sw.WriteLine(log)
57                        Next
58                    End If
59                    sw.Close()
60                End Using
61            End If
62        End Sub
63