สอบถามการใช้ SQL Server Select มีเงื่อนไข 2 ตัว และนำมาแสดงรายงาน

SELECT * FROM TotalPrint WHERE (DateSavePrint BETWEEN @date1 AND @date2) AND (SerialNo=@SerialNo)

Dim objConn As New SqlConnection
        Dim objCmd As New SqlCommand
        Dim dtAdapter As New SqlDataAdapter

        Dim ds As New DataSet
        Dim dt As DataTable
        Dim dt1 As DataTable '*****
        Dim strConnString, strSQL As String

        strConnString = "Data Source=.\SQLEXPRESS;Initial Catalog=LAHWINFO;Integrated Security=True"
        
        Dim sb As StringBuilder = New StringBuilder
        sb.Remove(0, sb.Length())
        sb.Append("SELECT * FROM TotalPrint")
        sb.Append(" WHERE (DateSavePrint BETWEEN @date1 AND @date2)")
        sb.Append("; SELECT SerialNo FROM TotalPrint") '*****
        sb.Append(" WHERE (SerialNo=@SerialNo)")
        strSQL = sb.ToString()

        objConn.ConnectionString = strConnString
        With objCmd
            .Parameters.Clear()
            .Parameters.Add("@date1", SqlDbType.SmallDateTime).Value = dtpStartSearch.Value.ToShortDateString
            .Parameters.Add("@date2", SqlDbType.SmallDateTime).Value = dtpEndSearch.Value.ToShortDateString
            .Parameters.Add("@SerialNo", SqlDbType.NVarChar).Value = cboNamePrint.SelectedIndex
            .CommandText = strSQL
            .CommandType = CommandType.Text
            .Connection = objConn
        End With
        dtAdapter.SelectCommand = objCmd
        dtAdapter.Fill(ds, "myDataTable")
        dt = ds.Tables(0)
        dt1 = ds.Tables(1) '*****
        dtAdapter = Nothing
        objConn.Close()
        objConn = Nothing

        Dim rpt As New ReportDocument()
        Dim directory As String = My.Application.Info.DirectoryPath
        'rpt.Load(directory & "\myCrystalReport1.rpt")
        rpt.Load("C:\CrystalReport2.rpt")
        rpt.SetDataSource(dt)
        Me.CrystalReportViewer1.ReportSource = rpt
        Me.CrystalReportViewer1.Refresh()

        Dim sb As StringBuilder = New StringBuilder
        sb.Remove(0, sb.Length())
        sb.Append("SELECT * FROM TotalPrint")
        sb.Append(" WHERE (DateSavePrint BETWEEN @date1 AND @date2)")
        sb.Append(" AND (SerialNo=@SerialNo)")
        strSQL = sb.ToString()

Dim sb As StringBuilder = New StringBuilder
sb.Remove(0, sb.Length())
sb.Append("SELECT * FROM TotalPrint")
sb.Append(" WHERE (DateSavePrint BETWEEN @date1 AND @date2)")
sb.Append(" AND (SerialNo=@SerialNo)")
strSQL = sb.ToString()

Dim sb As StringBuilder = New StringBuilder
sb.Remove(0, sb.Length()) 'เหมือนกับลอกเขามาทั้งดุ้น ไม่เคยเปลี่ยนแปลง

Dim sb As StringBuilder()
'Clear String Builder
sb = New StringBuilder() 'sb.Remove(0, sb.Length())
sb.Append("...")
'Clear String Builder
sb = New StringBuilder() 'sb.Remove(0, sb.Length())
sb.Append("...")