สอบถามปัญหาค่ะ หามาหลายวันละ งง SQL Error "Invalid object name" ผู้รู้ช่วยด้วยค่ะ

connIMCL = New SqlConnection
            With connIMCL
                If .State = ConnectionState.Open Then .Close()
                .ConnectionString = ConfigurationSettings.AppSettings("connIMCL")
                .Open()
            End With
            sqlCmd = "Select UserName,StatusLevel From CHECK_POLICY Where Program ='Purchasing' AND UserName = '" & Session("Usr") & "'"
            sqlCmd = "SELECT PODATE, PONO, POLINENO, DISCRIPTION, OTYORD, UOM, PRICE, CURRCODE, SUPPLIER_NAME, RECDATE, QTYREC, INVNo, DEPARTMENT "
        sqlCmd &= " FROM   GRN_PO"
        sqlCmd &= " WHERE (INVNo = '" & tINVNo.Text & "' )"


            Cmd = New SqlCommand

            With Cmd
                .CommandType = CommandType.Text
                .CommandText = sqlCmd
                .Connection = connIMCL
                .ExecuteNonQuery()

            End With
            da = New SqlDataAdapter(sqlCmd, connIMCL)
            ds = New DataSet
            da.Fill(ds, "GRN_PO")
            dvm = New DataViewManager
            dvm.DataSet = ds
        dvs = dvm.DataViewSettings("GRN_PO")

            With grdINVNo
                .Visible = True
                .DataSource = dvm.DataSet
            .DataMember = "GRN_PO"
                .DataBind()

            End With

            If ds.Tables("GRN_PO").Rows.Count = 0 Then
                lMess.Text = "No InvoiceNo. in this P/O or incorrect InvoiceNo.!!!"
                lMess.Visible = True

                Exit Sub
            End If
        End Sub