diff --git a/MAXIMUM_FUNCTION_PROGRAM/mainForm.vb b/MAXIMUM_FUNCTION_PROGRAM/mainForm.vb
index e265109..1d512a6 100644
--- a/MAXIMUM_FUNCTION_PROGRAM/mainForm.vb
+++ b/MAXIMUM_FUNCTION_PROGRAM/mainForm.vb
@@ -1530,8 +1530,17 @@ DataFail:
     End Function
 
     Private Function prodSerialDot(prodSerial As String) As Boolean
+        Dim table As String
+
+        If LDMUseCompare Then
+            table = ApplyLdmDB
+        Else
+            table = applyCartDB
+        End If
+
         If TDUseCompare = True Or LDMUseCompare = True Then
-            DBCmd = "SELECT CONVERT(P1_Date,CHAR),CONVERT(P1_Time,Char),Ct_Power,Ct_Motor_Lv FROM " & applyCartDB & " WHERE Product_SN = '" & prodSerial & "'"
+
+            DBCmd = "SELECT CONVERT(P1_Date,CHAR),CONVERT(P1_Time,Char),Ct_Power,Ct_Motor_Lv FROM " & table & " WHERE Product_SN = '" & prodSerial & "'"
 
             If DBQueryReader(DBCmd) Then