สอบถามครับ เรื่อง VB.Net Windows Form ทำ update form แลัวไม่สามารถนำข้อมูลจาก DB ไปแสดงบน Combobox ได้

Protected Sub amLoadEdit()
        Dim myConnection As SqlCeConnection
        Dim dt As New DataTable
        Dim Adapter As SqlCeDataAdapter
        myConnection = New SqlCeConnection("Data Source=C:\Users\abigdaddy\Documents\Visual Studio 2010\Projects\Claim_Records\Claim_Records\dbMain.sdf;")
        '\\10.1.1.7\VIV_Public\IED_PUBLIC\!CLAIM_RECORD_APP
        myConnection.Open()

        Dim myCommand As SqlCeCommand = myConnection.CreateCommand()
        Dim dtinfo As New System.Globalization.CultureInfo("en-US")
        myCommand.CommandText = "SELECT ID, PO_NO, INV_NO, INVOICE_DATE, SUP_NAME, PROD_CD, PROD_NAME, PROD_LOT, INV_QTY, QTY_UNIT, UNIT_PRICE, PRICE_UNIT, INV_AMT, COM_ID, " & _
                    "ETA_DATE, CARRIER_NAME, BL_NO, VESSEL, INS_NAME, INS_POL, INS_CERT, CLAIM_TO, INSURED_VAL, LOSS_QTY, EXC_QTY, CLAIM_QTY, AMT_LOSS," & _
            "AMT_CLAIM, AMT_CLAIM_RCV, CLAIM_RCV_DATE, LOSS_TYPE, LOSS_LOC, REPORT_NO, CLAIM_STATUS, AMT_CLAIM_RCV_UNIT, PROD_DEPT, " & _
                             "CLAIM_RCV_TYPE, BANK_NAME, BANK_ACC, INS_CLAIM_NO, CLAIM_NOTE_NO, REMARK FROM [tbMain] WHERE id = '" & strID & "'"
        myCommand.CommandType = CommandType.Text

        Adapter = New SqlCeDataAdapter(myCommand)
        Adapter.Fill(dt)

        myConnection.Close()



        If dt.Rows.Count > 0 Then
            Me.lblClaimNoteNo.Text = dt.Rows(0).Item("CLAIM_NOTE_NO").ToString
            Me.txbPo.Text = dt.Rows(0).Item("PO_NO").ToString
            Me.txtInv.Text = dt.Rows(0)("INV_NO").ToString
            Me.dtpInv.Value = CDate(dt.Rows(0)("INVOICE_DATE")).ToString("yyyy-MM-dd", dtinfo)
            Me.cbbSupName.SelectedValue = dt.Rows(0)("SUP_NAME").ToString
            Me.txbItemCd.Text = dt.Rows(0)("PROD_CD").ToString
            Me.txbProdName.Text = dt.Rows(0)("PROD_NAME").ToString
            Me.txbLotNo.Text = dt.Rows(0)("PROD_LOT").ToString
            Me.txbInvQty.Text = dt.Rows(0)("INV_QTY").ToString
            Me.cbbQtyUnt.Text = dt.Rows(0)("QTY_UNIT").ToString
            Me.txb_UntPrc.Text = dt.Rows(0)("UNIT_PRICE").ToString
            Me.cbbPrcUnt.Text = dt.Rows(0)("PRICE_UNIT").ToString
            Me.lblCalTotalAmt.Text = dt.Rows(0)("INV_AMT").ToString
            Me.cbbComId.Text = dt.Rows(0)("COM_ID").ToString
            Me.dtpEta.Value = CDate(dt.Rows(0)("ETA_DATE")).ToString("yyyy-MM-dd", dtinfo)
            Me.cbbCarrname.Text = dt.Rows(0)("CARRIER_NAME").ToString
            Me.txbBl.Text = dt.Rows(0)("BL_NO").ToString
            Me.txbVes.Text = dt.Rows(0)("VESSEL").ToString
            Me.cbbInsName.Text = dt.Rows(0)("INS_NAME").ToString
            Me.txbInsPol.Text = dt.Rows(0)("INS_POL").ToString
            Me.txbInsCert.Text = dt.Rows(0)("INS_CERT").ToString
            Me.cbbInsAgentName.Text = dt.Rows(0)("CLAIM_TO").ToString
            Me.txbInsVal.Text = dt.Rows(0)("INSURED_VAL").ToString
            Me.txbLossQty.Text = dt.Rows(0)("LOSS_QTY").ToString
            Me.lblExcQty.Text = dt.Rows(0)("EXC_QTY").ToString
            Me.lblClaimQty.Text = dt.Rows(0)("CLAIM_QTY").ToString
            Me.lblLossAmt.Text = dt.Rows(0)("AMT_LOSS").ToString
            Me.lblClaimAmt.Text = dt.Rows(0)("AMT_CLAIM").ToString
            Me.txbAmtClaimRcv.Text = dt.Rows(0)("AMT_CLAIM_RCV").ToString
            Me.dtpDateRcv.Value = CDate(dt.Rows(0)("CLAIM_RCV_DATE")).ToString("yyyy-MM-dd", dtinfo)
            Me.cbbLossTyp.Text = dt.Rows(0)("LOSS_TYPE").ToString
            Me.cbbLossLoc.Text = dt.Rows(0)("LOSS_LOC").ToString
            Me.txbDocRef.Text = dt.Rows(0)("REPORT_NO").ToString
            Me.cbbClaimStatus.Text = dt.Rows(0)("CLAIM_STATUS").ToString
            Me.lblAmtClaimRcvUnt.Text = dt.Rows(0)("AMT_CLAIM_RCV_UNIT").ToString
            Me.cbbProdDep.Text = dt.Rows(0)("PROD_DEPT").ToString
            Me.cbbBankTrfType.Text = dt.Rows(0)("CLAIM_RCV_TYPE").ToString
            Me.cbbBankName.Text = dt.Rows(0)("BANK_NAME").ToString
            Me.txbBankAcc.Text = dt.Rows(0)("BANK_ACC").ToString
            Me.txbInsClaimNo.Text = dt.Rows(0)("INS_CLAIM_NO").ToString
            Me.txbRemark.Text = dt.Rows(0)("REMARK").ToString
        End If

        dt = Nothing

        Dim IdentType As String = MyIdentity.AuthenticationType
        Dim IdentIsAuth As String = MyIdentity.IsAuthenticated.ToString()
        Dim ISAnon As String = MyIdentity.IsAnonymous.ToString()
        Dim IsG As String = MyIdentity.IsGuest.ToString()
        Dim IsSys As String = MyIdentity.IsSystem.ToString()
        Dim Token As String = MyIdentity.Token.ToString()
        Dim PrincipalName As String = MyPrincipal.Identity.Name
        Dim PrincipalType As String = MyPrincipal.Identity.AuthenticationType
        Dim PrincipalAuth As String = MyPrincipal.Identity.IsAuthenticated.ToString()

        Me.amGetData()
        'dtpInv.Value = Now.ToString("MM/dd/yyyy")
        'dtpEta.Value = Now.ToString("MM/dd/yyyy")
        'dtpDateRcv.Value = Now.ToString("MM/dd/yyyy")

    End Sub