DataReader recuperar en un textbox1

[RugalMKing]

No era necesario que iniciaras otro post...

Esto es todo lo que necesitas:

Código:

Imports System.Data
Imports System.Data.OleDb

Dentro del Evento Load de tu form...

Código:

Dim Conexion As  New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & AppDomain.CurrentDomain.BaseDirectory & "\mibase.mdb")

SqlQuery="SELECT * FROM ALQUILERES"

Dim ObjLector As SqlDataReader
Dim ObjCmd As New SqlCommand(SqlQuery, Conexion)
Conexion.Open()
ObjLector = ObjCmd.ExecuteReader
   If ObjLector.HasRows Then
      Do While ObjLector.Read
         TextBox1.Text=ObjLector("Nombre").ToString()
      Loop
   End If
ObjLector.Close()
Conexion.Close()

Ahora bien, ignoro cómo es que quieras acomodar todos los registros en un solo textbox... si se trata de un registro en especifico, deberias ser más concreto en tu SELECT:

Código:

SqlQuery="SELECT * FROM ALQUILERES WHERE NOMBRE='ALGUN NOMBRE'"

Y bueno si insistes en acomodar todos los registros resultantes en un solo textbox, podrías hacerlo así:

Código:

If String.IsNullOrEmpty(TextBox1.Text)=False Then
   TextBox1.Text+= "," & ObjLector("Nombre").ToString()
Else
   TextBox1.Text+= ObjLector("Nombre").ToString()
End If

Espero te sirva. Saludos!