Import of Boolean Values from tables fail

[Xarno]

Problem: There is an Casting error in this line: rs(fieldObj.Name) = Value
if the Field is an Boolean.
Possible, but not so good Patch:

@@ -760,6 +760,14 @@ Private Sub ImportTable(tblName As String, obj_path As String)
                     Value = Replace(Value, "\n", vbCrLf)
                     Value = Replace(Value, "\\", "\")
                 End If
+                'Only correct if the Fields are actually Booleans, and when using a German Version of Access.
+                If Value = "Falsch" Then
+                    Value = CBool(Value)
+                End If
+                If Value = "Wahr" Then
+                    Value = CBool(Value)
+                End If
+
                 rs(fieldObj.Name) = Value
                 C = C + 1
             Next