myOleDbConnection.Open()
Dim MyCommand As New OleDb.OleDbCommand()
MyCommand.Connection = myOleDbConnection
MyCommand.CommandText = "SELECT * FROM Tickets WHERE TicketID = 3"
Dim MyReader As OleDb.OleDbDataReader
MyReader = MyCommand.ExecuteReader()
' Bis hierhin funktioniert es 100%
 
Dim MyCommand1 As New OleDb.OleDbCommand()
MyCommand1.CommandText = "SELECT * FROM Status WHERE StatusID = '" + MyReader( _
  "Status")
Dim MyReader3 As OleDb.OleDbDataReader
MyReader3 = MyCommand1.ExecuteReader()
MyReader3.Read()
Status.Text = MyReader3("Status")
 
...
....