como lleno un textbox desde un dataset. vb 2008

[hferreir]

Mis estimados para Visual Studio 2008 o mayores:

Dim sqlstr As String
Dim constr As String
Dim conusua As OleDb.OleDbConnection
Dim orden As OleDb.OleDbDataAdapter
Dim tabla As DataSet

sqlstr = "SELECT Login from usuarios where Login='miusuario'"
constr = "Provider=Microsoft.ACE.OLEDB.12.0;data source=c:\stock1\stock1.accdb"
Try
conusua = New OleDb.OleDbConnection(constr)
orden = New OleDb.OleDbDataAdapter(sqlstr, conusua)
tabla = New DataSet
orden.Fill(tabla, "usuarios")
TextBox1.Text = tabla.Tables("usuarios").Rows(0).Item(0)
Catch ex As Exception
MsgBox(ex.Message)
End Try