Null længe streng i database giver problemer med ADO

Jeg eksperter.

Jeg har et lille problem.
Jeg roder lidt rundt med en Access database og til at komme i kontakt bruger jeg ado.

Jeg giver lige et uddrag :

Function TForm1.GetInfoFromID(id : integer) : TStringList;
var
  Q1: TADODataset;
  TS : TStringList;
begin
Q1 := TADODataset.Create(Self);
Q1.Connection := ADOConnection1;
Q1.CommandText := 'SELECT * FROM [Music] WHERE ID = ' + IntToStr(ID);
Q1.Open;

TS := TStringList.Create;
If not Q1.Eof then
Begin
TS.Add(Q1['Artist']);
TS.Add(Q1['Title']);
TS.Add(Q1['Title2']);
TS.Add(Q1['Genre']);
TS.Add(Q1['Rate']);
end;
GetInfoFromID := TS;
//TS.Free;
Q1.Free;
end;


------------------------------------

Problemet ligger så i at hvis et af felterne ikke indeholder noget tekst kommer den ud med en "invalid variant type conversion" fejl.

Hvad gør jeg for at komme uden om den fejl?