使用MS Access在VB.Net中从数据集到文本框

当我单击按钮1时，我试图在函数Gelobee中获取查询结果，以转到DescTxt.Text。当我单击按钮1时，DescTxt中没有显示任何内容。没有错误，但它不会在文本框中显示结果。

您的代码会在

Return

语句处停止

将Gelobee（）更改为：

---

我很高兴能帮忙。

Private Function Gelobee() As DataSet
    Dim connection As OleDb.OleDbConnection = New OleDbConnection
    connection.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=CMP.accdb"
    connection.Open()
    Dim da As OleDb.OleDbDataAdapter = New OleDbDataAdapter("SELECT IDDesc FROM [ItemDesc] WHERE " & PartNoTxt.Text & " ORDER BY IDID;", connection)
    Dim ds As New DataSet
    da.Fill(ds, "FilteredDesc")
    Return ds
    connection.Dispose()
    connection = Nothing
    DescTxt.Text = ds.Tables(0).Rows(1).Item(1)
End Function

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Gelobee()
End Sub

Private Function Gelobee() As DataSet
    ... ' Removed for brevity

    da.Fill(ds, "FilteredDesc")
    connection.Dispose()
    connection = Nothing
    DescTxt.Text = ds.Tables(0).Rows(1).Item(1)
    Return ds
End Function