VB.NET ค่ะ โค้ดนี้มันติดค่ะ แก้ยังไงดีค่ะ Private Sub txtsend_KeyDown(ByVal sender As Object, ByVal e As

Private Sub txtsend_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtsend.KeyDown
        'ค้นหา
        
        If e.KeyCode = Keys.Enter Then

            Dim s As String

            sql = "where CarID ='" & txtsend.Text & "'"
            s = "select*from stock where CarID " & sql
        End If

        With cn
            If .State = ConnectionState.Open Then .Close()
            .ConnectionString = StrConn
            .Open()
        End With

        Da = New SqlDataAdapter(s, cn)
        Ds = New DataSet
        Da.Fill(Ds, "show room")

        With Ds.Tables("show room")
            If .Rows.Count <> 0 Then
                dgv.DataSource = Ds.Tables("show room")
                txtid.Text = .Rows(0).Item("CarID").ToString
                txtmoder.Text = .Rows(0).Item("ModerCar").ToString
                txtcolor.Text = .Rows(0).Item("ColorCar").ToString
                txtregis.Text = .Rows(0).Item("RegistrationCar").ToString
                txtnumber.Text = .Rows(0).Item("Number_Stock").ToString
                txtprice.Text = .Rows(0).Item("Price").ToString

            Else
                MessageBox.Show("ไม่พบข้อมูล")
                dgv.DataSource = ""
                txtsend.SelectAll()

            End If
        End With
        cn.Close()
        txtsend.Clear()
    End Sub
End Class