如何使用vb.net将db值显示到文本框

Question

我是vb.net的新手。
我想在文本框中显示一些值。

以下是我的代码 但它没有显示任何价值。

我想将学年显示为yearTextBox 帮我找一个解决方案。

代码：

con1.Open()
cmd1 = con1.CreateCommand
Dim y As String = DateTime.Now.Year.ToString(TextBox1.Text) // getting current year (eg: y=2015)
cmd1.CommandText = "select ACADEMIC_YEAR from ACADEMIC_YEAR where CURRENT_YEAR='" & "y" & "'"
sdr1 = cmd1.ExecuteReader
If sdr1.Read Then
yearTextBox.Text = sdr1(0)
End If
sdr1.Close()

演示表：

ACADEMIC_YEAR    CURRENT_YEAR
-------------     -----------
2014-2015            2015