การบันทึกข้อมูล แล้วพิมพ์ใบออกรายงานทันที (crystal report VB2008)

 If ds.Tables("data") IsNot Nothing Then
            ds.Tables("data").Clear()
        End If
        Dim sql As String
        sql = "select * from Admin_Jobs,Customer where Admin_Jobs.Customer_ID = Customer.ID and Admin_Jobs.stausnow ='AP'" 
        da = New OdbcDataAdapter(sql, Conn)
        da.Fill(ds, "data")
        Dim myReport As New CryJobService
        myReport.Load(".\reports\CryJobService.rpt")
        myReport.SetDataSource(ds.Tables("data"))
        frmShowrpt.Show()
        frmShowrpt.CrystalReportViewer1.ReportSource = myReport