sql = "SELECT * from EmpMain where and Emp_ID between '" & cbo1.SelectedValue & "'and '" & cbo2.SelectedValue & "'"
cm = New OleDbCommand(sql, conn)
cm.ExecuteNonQuery()
dr = cm.ExecuteReader
Dim tem As New DataTable
If (dr.HasRows) Then
tem.Load(dr)
Dim report As New crptCard
report.SetDataSource(tem)
CrystalReportViewer1.ReportSource = report
Else
dr.Close()
MessageBox.Show("ไม่มีข้อมูลในรายงานที่เลือก", "ไม่มีข้อมูล", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If