ติด err วันที่ครับ ตอนจะโชว์ Report ครับ ช่วยดูหน่อยนะ

   Private Sub crv1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles crv1.Load
        crv1.Visible = True

        With tl
            .ConnectionInfo.ServerName = server
            .ConnectionInfo.DatabaseName = db
            .ConnectionInfo.UserID = user
            .ConnectionInfo.Password = pwd
        End With
        rpt.Database.Tables(0).ApplyLogOnInfo(tl)
        rpt.Refresh()
        rpt.RecordSelectionFormula = "{View_SMS.dates} = (#" & ส่งSMSแจ้งขาดเรียน.Nowdate & "#) and {View_SMS.card_in} = IS NULL and {View_SMS.Status} = 'ศึกษาอยู่' "
        crv1.ReportSource = rpt
    End Sub