ติดเออเรอโค๊ด crystal reports พอดีเขียนโค๊ดเพื่อที่เวลารันแล้วจะได้ไม่้ต้องใส่รหัสผ่านอ่ะ .. Invalid index. (Exception from HRESULT: 0x8002000B (DISP_E_BADINDEX))

 Dim rpt As New CrystalReport1

        ' ---- เพิ่มโค้ดส่วนนี้ สำหรับแต่ละตารางในรายงาน
        Dim log As CrystalDecisions.Shared.TableLogOnInfo
        log = rpt.Database.Tables("View_Out").LogOnInfo
        With log.ConnectionInfo
            .UserID = "sa" 
            .Password = "buddy716" 
        End With
        rpt.Database.Tables("View_Out").ApplyLogOnInfo(log) 
        CrystalReportViewer1.ReportSource = rpt