Problemas para cargar un dblookupComboBox!

[rlavisse]

Hola, estoy tratando de cargar un dblookupcombobox, pero no me lo carga. Este es mi codigo, si alguien sabe que estoy haciendo mal, que me pegue un grito, si? Gracias !!

procedure TfNuevoSocio.FormCreate(Sender: TObject);
var
q : TSQLQuery;
s : TDatasource;
begin
try
q := TConexion.getQuery;
q.SQL.Text := Concat(' Select codigoProvincia, Provincia '#13,
' From Provincias ');
s := tdatasource.Create(self);
s.DataSet := q;
q.Open;
cbProvincia.ListSource := s;
cbProvincia.ListField := 'Provincia';
cbProvincia.KeyField := 'codigoProvincia';

finally
FreeAndNil(q);
end;
end;