无法将数据加载到文本框中

Question

单击按钮后，我希望程序将有关用户（存储在访问数据库中）的详细信息加载到文本框中。 这就是我的目标

Dim connString As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\Users\Administratot\Documents\RailwayDatabase2.accdb"
        Dim MyConn As New OleDbConnection(connString)
        Dim da As OleDbDataAdapter
        Dim ds As DataSet
        Try
            MyConn.Open()
            da = New OleDbDataAdapter("Select * from tbl_employees WHERE FirstName = """ & EmployeeLogin.usersname & """", MyConn)
            ds = New DataSet
            da.Fill(ds)
            TextBox1.Text = ds.Tables("tbl_employees").Rows(0).Item(2)
            MyConn.Close()
        Catch ex As Exception
            If MyConn.State <> ConnectionState.Closed Then MyConn.Close()
        End Try

    End Sub

知道为什么这不起作用？感谢