Какой прогой можно открыть файлы DB?

procedure TForm1.Button1Click(Sender: TObject);
begin
ZConnection1.Database:=ExtractFilePath(ParamStr(0))+'main.db'; //имя базы данных
ZConnection1.Protocol := 'sqlite';
ZConnection1.LoginPrompt := False; // to prevent showing of the connection dialog
ZConnection1.Connect; //Конектимся
 
if ZConnection1.Connected=True then //Если подключились тогда
begin
ZQuery1.Connection:=ZConnection1;
zQuery1.Close;
zQuery1.SQL.Clear;
ZQuery1.SQL.Text := 'SELECT * FROM `Messages`';
DataSource1.DataSet:= ZQuery1;
DBGrid1.DataSource:=DataSource1;
ZQuery1.Active := True;
//ShowMessage('Вы успешно присоединились к базе данных!!!');
end else
begin
//ShowMessage('Нихрена не подключился');
end;
 
end;
 
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
 
if Assigned(Column) then
begin
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.Canvas.TextRect(Rect, Rect.Left, Rect.Top, ' '+Column.Field.AsString);
end;
 
end;