สร้างเงื่อนไขให้เรียกข้อมูลของเฉพาะวันนี้ ASP.NET มันบอกแต่ว่าไม่พบข้อมูลที่ต้องการเราต้องใส่เงื่อนไขอะไรเพิ่มเหรอ มันไม่เออเร่อค่ะ

Imports System.Data
Imports System.Data.SqlClient
Imports System.Web.Configuration
Partial Class Default2
    Inherits System.Web.UI.Page

 Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
         Dim Cnn As SqlClient.SqlConnection = New SqlClient.SqlConnection("Data Source=KFM-03-SERVER;Initial Catalog=KFMAX51DBTest;User ID=SA;PWD=pass@word1")
        Dim DS As New DataSet()
        Dim Adapter As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter("SELECT SALESID,CUST_Mix,NAME,CUSTOMERLINENUM,ITEMID,NAMEALIAS, SALESQTY,SALESUNIT,SHIPPINGDATECONFIRMED,TXT,Addr_Delivery, Province,ECL_SALESID_REFERENCE,ECL_REMARKS,REMAINSALESPHYSICAL,PhyInvent FROM zKFM_ShipmentRequest", Cnn)
        Adapter.Fill(DS, "Table")
        GridView1.DataSource = DS.Tables("Table")
        GridView1.DataMember = "Table"
        GridView1.DataBind()
Me.TextBox1.Text = Date.Today()
    End Sub
    
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
        Dim TextBox1 As String = Replace(Me.TextBox1.Text, "'", "")
        Dim DS As New DataSet()
        Try
            DS = Search(TextBox1, "SHIPPINGDATECONFIRMED")
            If DS.Tables("SHIPPINGDATECONFIRMED").Rows.Count <> 0 Then
                GridView1.DataSource = DS.Tables("SHIPPINGDATECONFIRMED")
                GridView1.DataBind()
            Else
                Me.Label2.Text = "ไม่พบข้อมูลที่ต้องการ"
                Me.Label2.Visible = True
            End If
        Catch ex As Exception
            Label2.Text = ex.Message
            Label2.Visible = True
        End Try
    End Sub
    
Function Search(ByVal word As String, ByVal group As String) As DataSet
        Dim DS As New DataSet()
        Dim Cnn As SqlClient.SqlConnection = New SqlClient.SqlConnection("Data Source=KFM-03-SERVER;Initial Catalog=KFMAX51DBTest;User ID=SA;PWD=pass@word1")
        Dim TB As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter("SELECT * FROM zKFM_ShipmentRequest WHERE SHIPPINGDATECONFIRMED = CONVERT(VARCHAR,GETDATE(),111) AND SHIPPINGDATECONFIRMED=" & TextBox1.Text, Cnn)
        TB.Fill(DS, "SHIPPINGDATECONFIRMED")
        GridView1.DataSource = DS.Tables("Table")
        GridView1.DataMember = "Table"
        GridView1.DataBind()
        Return DS
    End Function

End Class