Por lo visto sólo quieres recuperar una sola tupla, te recomiendo que uses un DataReader en lugar de un DataSet.
Código:
Dim MyCommand As New SqlCommand("select * from compra", New SqlConnection("server=(local);database=Compras;Trusted_Connection=yes"))
MyCommand.Connection.Open()
Dim dr As IDataReader = MyCommand.ExecuteReader(CommandBehavior.CloseConnection)
If (dr.Read()) Then
TextBox1.Text = dr("NombreColumna").ToString()
End If
MyCommand.Connection.Close()
Falta corregir la consulta SQL para que traiga sólo una tupla de la base de datos.
Saludos