There was an error Parsing the Query. [Token Line number = 1, Token Line offset =1, Token in error = 1 ].

sSql = "SELECT * From TMOBIHUBCE"
            cmdSKU = New SqlCeCommand(sSql, oNewConnection)
            cmdSKU.CommandText = CommandType.Text
            rdrReadSKU = cmdSKU.ExecuteReader()

                                              

1:
2:
3:
4:

    Private Sub BCRReceive_BarcodeRead(ByVal sender As System.Object, ByVal bre As Intermec.DataCollection.BarcodeReadEventArgs) Handles BCRReceive.BarcodeRead
        Dim rdrReadSKU As SqlCeDataReader = Nothing
        Dim sDeviceName As String = System.Net.Dns.GetHostName()
        Dim oNewConnection As SqlCeConnection = Nothing
        Dim ceEng As SqlCeEngine = Nothing
        Dim iQty As Integer = 0
        Dim sBatchCode As String = String.Empty
        'Code For Reading Barcode and Fetch the SKU Details
        Dim sConnectionString As String = "Data Source= " + GetAppPath() + "\MOBIHUB.sdf;"
 
        Try
            txtSKU.Text = bre.strDataBuffer.ToString
            Dim sSql As String = String.Empty
            Dim sActCode As String = String.Empty
            Dim cmdSKU As SqlCeCommand
 
            sConnectionString = "Data Source= " + GetAppPath() + "\MOBIHUB.sdf;"
            oNewConnection = New SqlCeConnection(sConnectionString)
            oNewConnection.Open()
            sSql = "SELECT * From TMOBIHUBCE"
            cmdSKU = New SqlCeCommand(sSql, oNewConnection)
            cmdSKU.CommandText = CommandType.Text
            rdrReadSKU = cmdSKU.ExecuteReader()
            While rdrReadSKU.Read
                rdrReadSKU.Read()
                sBatchCode = rdrReadSKU.GetValue(2)
                iQty = rdrReadSKU.GetValue(3)
                txtBatchCode.Text = sBatchCode
                txtPUOMQty.Text = iQty
            End While
            If rdrReadSKU.IsClosed = False Then
                rdrReadSKU.Close()
                rdrReadSKU.Dispose()
            End If
        Catch ex As Exception
            MsgBox(ex.ToString)
            '            ManageMobileHub.cManageLogs.ManageLogs(System.Guid.NewGuid.ToString, ex.ToString)
        Finally
            oNewConnection.Close()
        End Try
    End Sub
 
 
 
        Public Shared Function GetAppPath() As String
            Dim fullPath As String = Path.GetDirectoryName(Assembly.GetExecutingAssembly().GetName().CodeBase)
            GetAppPath = fullPath
        End Function
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:

Private Sub BCRReceive_BarcodeRead(ByVal sender As System.Object, ByVal bre As Intermec.DataCollection.BarcodeReadEventArgs) Handles BCRReceive.BarcodeRead
        Dim rdrReadSKU As SqlCeDataReader = Nothing
        Dim sDeviceName As String = System.Net.Dns.GetHostName()
        Dim oNewConnection As SqlCeConnection = Nothing
        Dim ceEng As SqlCeEngine = Nothing
        Dim iQty As Integer = 0
        Dim sBatchCode As String = String.Empty
        'Code For Reading Barcode and Fetch the SKU Details
        Dim sConnectionString As String = "Data Source= " + GetAppPath() + "\MOBIHUB.sdf;"
 
        Try
            txtSKU.Text = bre.strDataBuffer.ToString
            Dim sSql As String = String.Empty
            Dim sActCode As String = String.Empty
            Dim cmdSKU As SqlCeCommand
 
            sConnectionString = "Data Source= " + GetAppPath() + "\MOBIHUB.sdf;"
            oNewConnection = New SqlCeConnection(sConnectionString)
            oNewConnection.Open()
            sSql = "SELECT * From TMOBIHUBCE"
            cmdSKU = New SqlCeCommand(sSql, oNewConnection)
            cmdSKU.CommandText = CommandType.Text
            rdrReadSKU = cmdSKU.ExecuteReader()
            While rdrReadSKU.Read
                rdrReadSKU.Read()
                sBatchCode = rdrReadSKU.GetValue(2)
                iQty = rdrReadSKU.GetValue(3)
                txtBatchCode.Text = sBatchCode
                txtPUOMQty.Text = iQty
            End While
            If rdrReadSKU.IsClosed = False Then
                rdrReadSKU.Close()
                rdrReadSKU.Dispose()
            End If
        Catch ex As Exception
            MsgBox(ex.ToString)
            '            ManageMobileHub.cManageLogs.ManageLogs(System.Guid.NewGuid.ToString, ex.ToString)
        Finally
            oNewConnection.Close()
        End Try
    End Sub
 
 
 
        Public Shared Function GetAppPath() As String
            Dim fullPath As String = Path.GetDirectoryName(Assembly.GetExecutingAssembly().GetName().CodeBase)
            GetAppPath = fullPath
        End Function

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48: